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a primera pregunta que podríamos plantearnos 
es: ¿por qué otro lenguaje más? Cierto es que 
el BASIC, queramos o no, se está casi convirtien- 
do en el esperanto de los aficionados a la infor- 
mática (a pesar de serlo de una manera bastan- 
te imperfecta si tenemos en cuenta la enorme 
cantidad de dialectos existentes); también es 
cierto que muchos lenguajes se olvidan, al tiem- 
po que cada día aparecen otros diferentes. Pa- 
ralelamente a todo esto van creándose partidarios a favor de uno 
u otro lenguaje. Pero no queremos sumarnos a la tónica general 
y contar las maravillas del FORTH por el mero hecho de haberle 
“tomado cariño”. Nuestro propósito es explicar de una manera se- 
ria y objetiva el por qué del éxito de este lenguaje en aspectos 
donde los restantes han fallado, 

Hay que hacer notar, en primer lugar, que el usuario muestra 
una clara tendencia a adoptar el lenguaje más sencillo y que le 
cree el menor número de problemas posibles. Fue ésta precisa- 
mente una de las razones que determinó el éxito del BASIC, 

Lo primero que llama la atención del FORTH es la manera tan 
original e innovadora en que se trata el problema de la progra- 
mación, Resulta, además, indispensable en ciertos tipos de aplica- 
ciones. De estas dos cuestiones en particular trataremos en este 
libro. Ciertamente no es posible mostrar su potencialidad al com- 
pleto ni podremos enseñarles cómo utilizar y aprovechar todas 
sus instrucciones; lo que queremos es dar una idea bastante clara 
acerca del estilo de programación FORTH y de lo que es posible- 
o no hacer con él. Si alguna persona encuentra este tema intere- 
sante y desea profundizar más sobre ello podrá hallar una gran 
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variedad de libros en las librerías especializadas (vea también la 
bibliografía al final de este volumen). 

Otra pregunta que puede surgir es: ¿para quién es útil el 
FORTH? La respuesta es bien sencilla: para quien odie los progra- 
mas que abarcan diez páginas de listado, para aquellos que estén 
abiertos a nuevas concepciones, para los que deseen una ejecu- 
ción más rápida de sus programas y para los que no aguantan la 
sintaxis tipo “sujeto-predicado-complemento”. 

Por último, tan sólo una recomendación. Para aprender bien 
un lenguaje, sea o no de ordenadores, son.obviamente necesarios 
los manuales, pero también un mínimo de práctica. Hemos plan- 
teado el presente libro para que pueda ser leído sin tener que re- 
currir a] uso de un ordenador para seguirlo. A pesar de ello, re- 
sulta obvio que llevar a la realidad, aunque sea de forma esporá- 
dica, lo explicado sobre cualquier ordenador hará menos penosa 
la etapa de aprendizaje y ofrecerá la posibilidad de intentar efec- 
tuar alguna variante. Supone una gran ventaja hoy en día el que 
para emprender la aventura del FORTH sea suficiente con un pe- 
queño micro doméstico y poseer este económico, pero potente, 
software. 


HISTORIA Y PRESENTE DEL FORTH 


n ordenador no es otra cosa que un conjunto 
de circuitos y cables que, para desarrollar sus 
funciones, necesita, además de ser conectado 
a la red, ser “revestido” por el software, es de- 
cir, las instrucciones. El ordenador entiende es- 
tas instrucciones como integrantes de un "idio- 
ma” concreto denominado código máquina, y 
las comprende y ejecuta de una manera tan rá- 
pida y eficiente que haría vacilar a cualquier 
mente humana. Naturalmente, si lo que pretendiéramos fuera que 
el ordenador comprendiera una orden dada en una lengua cual- 
quiera utilizada por los humanos, el resultado sería el contrario. 

Han sido así desarrollados los llamados lenguajes de progra- 
mación, verdaderos idiomas dotados de gramática y sintaxis pro- 
pias que si por un lado son fácilmente utilizables e inteligibles por 
los hombres, son por otro aptos para que el ordenador los traduz- 
ca en código máquina directamente :nterpretables por él. En 
BASIC, el utensilio interno que efectúa tal traducción se denomina 
intérprete. El intérprete toma de la memoria una instrucción, la 
transforma a código de máquina y la pasa al microprocesador, a 
continuación salta a la instrucción (o línea) siguiente y repite el 
proceso. 

Naturalmente, todo esto requiere un tiempo que puede llegar 
a ser considerable en programas complejos e incluso prohibitivo 
cuando sea necesario efectuar operaciones y medidas inmedia- 
tas o, como suele decirse, en tiempo real. Este es muy a menudo 
el caso, por ejemplo, de máquinas herramientas, sistemas indus- - 
triales o aparatos de medida controlados por microprocesador, 
que no toleran retrasos en la transmisión o recepción de datos. 


Al 


Una solución podría ser la de los lenguajes compilados, como 
PASCAL o FORTRAN, pero en ellos las operaciones de búsqueda 
y corrección de errores son pesadas y complejas, y ocasionan mo- 
lestias considerables al usuario. 

El FORTH ofrece otra alternativa. Aunque las subrutinas que 
componen un programa FORTH son compiladas y así almacena- 
das, el trabajo con el lenguaje se lleva a cabo como si fuera in- 
terpretado. Al igual que en éste, en otros muchos aspectos del 
FORTH hay que olvidarse de ideas preconcebidas y abrirse a lo 
original. 

El lenguaje FORTH fue creado entre los años 1965 y 1970 por 
Charles H. Moore y Elisabeth Rather en el National Radio Astro- 
nomy Observatory de Kitt Peak, Arizona. Tal y como Moore mis- 
mo cuenta, en aquel período a menudo tenía que trabajar en di- 
ferentes aplicaciones, como cálculo de trayectorias de cuerpos en 
órbita, cromatografías, análisis de espectros de emisión, cálculos 
de probabilidad, conservación de datos en archivo y análisis es- 
tadísticos y a veces financieros sobre los mismos. Se dio cuenta 
entonces que con los lenguajes que en aquel tiempo tenía a su 
disposición no habría podido producir en toda su vida más que 
unos tres o cuatro programas serios, desperdiciando inútilmente 
mucho tiempo. 

Comprendió que necesitaba unos medios capaces de dismi- 
nuir el tiempo y ritmo de programación. La idea, concretada en 
un principio en la realización de una serie de subrutinas de utili- 
dad, dio lugar, en 1968, a una entidad (todavía se trataba de un blo- 
que de subrutinas en lenguaje máquina, así que sería exagerado 
definirlo como lenguaje) que fue llamado FORTH, 

El nombre deriva del hecho de que, en aquella época de or- 
denadores de la tercera generación, Moore quería considerar su 
creación (y no andaba muy equivocado) como perteneciente a la 
cuarta (FOURTH) generación. La primera edición del lenguaje fue 
implementada sobre un IBM 1130, que tan sólo permitía identifi- 
cadores de una longitud máxima de cinco letras. 

En 1971, mientras escribía un programa de adquisición de da- 
tos para un radiotelescopio de la empresa NRAO, Moore decidió 
añadir un compilador al sistema; dos años más tarde llegó a la mul- 
tiprogramación. En el mismo período, Moore puso a punto un pro- 
grama para la adquisición automática y continua de datos de un 
nuevo radiotelescopio instalado en Kitt Peak. A éste se debe el 
descubrimiento de al menos la mitad de los módulos interestela- 
res (space dust) conocidos en la actualidad. j 

Empujados por una parte por su interés en astronomía y por 
otra por los no muy estimulantes sueldos de la NRAO, tanto 
Moore como Rather y otros compañeros dejaron en el mismo año 
el observatorio para fundar, en Hermosa Beach (California), la so- 
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ciedad FORTH Inc. Esta se dedicó en sus comienzos a las aplica- 
ciones astronómicas, pero pronto empezó a extenderse por nue- 
vos sectores, llegando a abarcar hoy en día prácticamente todos 
los campos de la programación. 

El hecho de que en los comienzos se interesaran en astrono- 
mía había determinado que Moore y su lenguaje fueran bastante 
conocidos en todo el mundo. En 1976 se constituyó EFUG (Euro- 
pean FORTH Users Group). Ya desde su primer encuentro inter- 
nacional decidieron formar el FORTH STANDARD TEAM (Grupo 
de FORTH estándar), con el objetivo de establecer un conjunto 
mínimo de comandos que fuera incluido en todos los sistemas 
y versiones. 

En 1978 en San Carlos, California, un grupo de programado- 
res fundaron el FIG (FORTH Interest Group), cuyo fin era promo- 
cionar el uso de este lenguaje por medio de seminarios, publica- 
ciones e intercambio de ideas y experiencias a través de un pe- 
riódico bimestral, el "NORTH Dimensions”. El FIG pone además a 
disposición de sus asociados, y prácticamente al precio de coste, 
los listados fuente del lenguaje para diferentes microprocesado- 
res y los proporciona, si así se desea, ya listos para su uso. En 1984 
el FIG contaba ya en todo el mundo con más de 10.000 inscrip- 
ciones oficiales. 

El FORTH STANDARD TEAM, que aún pervive, se encarga de 
poner al día periódicamente el estándar del lenguaje (la versión 
más reciente es el FORTH-83). Por su parte el FIG se encarga, 
casi simultáneamente, de publicar un estándar, resumido en el 
Fig-Forth Installation Manual, escrito por William F. Ragdale. Afor- 
tunadamente las características de este lenguaje son tales que 
las diferenc:as entre los diversos dialectos (como PoliForth, 
MSSForth, GF-Forth) son fácilmente integrables por los demás. 


uede que les parezca increíble, pero en la pre- 
historia del lenguaje FORTH aparece Isaac New- 
ton, Este científico genial, en un tiempo en que 
el cálculo simbólico estaba aún en sus albores 
(el uso de las expresiones literales fue introdu- 
cido por el francés Viete en 1590), fue el prime- 
ro en proponer el concepto de “Word” (palabra). 
Se trataba de una notación particular según la 
cual hacia corresponder a palabras preestable- 

las (word, en inglés) operaciones, secuencias numéricas e in- 
cluso procedimientos matemáticos complicados. 

La cosa terminó así, sobre todo porque resultaba más difícil 
recordar a qué correspondía cada palabra que describir la ope- 
ración en sí. Los vocablos de Newton, que en su tiempo parecie- 
ron una complicación inútil. poseen la misma función que las pa- 

bras (words) en el FORTH. Es decir: hacen posible definir nom: 
palabras o rencias peculiares de caracteres a los que co- 
sponden una determinada secuencia de operaciones. 

Queremos precisar tan sólo una cosa antes de seguir: las pa- 
labras (words) figurarán en este libro siempre en mayúsculas. En 
caso de que surgieran complicaciones o se pudiera dar lugar a 
confusiones (cosa que puede ocurrir, por ejemplo, cuando una 
“word” de un solo carácter se nombra en un texto) las pondremos 
encerradas entre paréntesis que, naturalmente, no tendrán que ser 
tecleados en el momento de utilizarlas. De modo que aparecerán 
LEAVE, IF, BESIN, pero también [;], [0] y [EXIT] en el caso de 
que este último pueda crear malentendidos dentro del texto. 

Además, como ya dijimos, el lenguaje FORTH es, probable- 
mente, el que se halla más desvinculado del ordenador sobre el 
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que está implementado; a pesar de ello, todc lo que propondre- 
mos (programas, words, subrutinas) ha sido probado y verificado 
en un ordenador Hewlett-Packard modelo 87XM y en un ITT 3710, 
además de un Spectrum 48K con un programa de Abersoft. 

Cada lenguaje posee unos términos pecu ares para describir 
qué órdenes hay que enviar desde el teclado a fin de que se eje- 
cute una acción determinada. Las instrucciones del Assembler, las 
del Pascal o del BASIC, las listas o expresiones del LISP equivalen 
a lo que se llama, en FORTH, palabra (word). 

La palabra es una secuencia de uno o varios caracteres alfa- 
numéricos que determina siempre que aparece la misma secuen- 
cia de acciones, operaciones, etc. Por ejemplo, la palabra CR rea- 
liza el salto al principio de una línea (en impresora o en pantalla), 
la palabra [-] efectúa una sustracción entre dos números y pone 
el resultado en memoria, EMIT permite imprimir caracteres, etc. 

Igual que cualquier otro lenguaje, todo sistema FORTH sea 
cual sea el dialecto a que pertenezca, posee un conjunto preesta- 
blecido de palabras, formando el llamado diccionario. 

Los diccionarios contienen varios conjuntos (sets) de palabras 
a partir del “required word set", que son las palabras necesarias 
en cualquier implementación. En todo caso, en FORTH el diccio- 
nario no se limita a las palabras presentes en el sistema tal y como 
se ha comprado. El FORTH, por su naturaleza, permite ampliar su 
vocabulario con palabras de construcción original, escritas por el 
usuario, destinadas a cumplir funciones específicas o a ejecutar 
determinados procedimientos. Esto quiere decir que es posible, 
por ejemplo, crear palabras distintas de las originales uniendo al- 
gunas de las que ya existen en el vocabulario de base. A su 
vez estas nuevas: creaciones se podrán unir para formar otras, 
consiguiendo así que efectúen procedimientos cada vez más 
complejos. 

Todo esto lo había intuido Newton, pero su objetivo había sido 
crear códigos mnemotécnicos sintéticos en lugar de secuencias 
operativas. Trataba de buscar las fórmulas (que sólo aparecerán 
en el siglo XVIII) como instrumento de resumen y representación. 
El FORTH resume pero, sobre todo, lleva a cabo, mediante las pa- 
labras, operaciones, medidas, controles... es decir, tanto acciones 
matemáticas como físicas. 

Pongamos un ejemplo práctico: después de los primeros 1000 
kilómetros, un coche nuevo es llevado a un mecánico para que 
le sean efectuados una serie de controles. Si el dueño, digámoslo 
así, se expresara en BASIC, diría al mecánico: quiero el cambio de 
aceite, el control de los frenos, el ajuste de las válvulas, la com- 
probación del nivel en la batería, etc. Es decir, señalaría una serie 
de operaciones, incluso las más complejas, llamándolas por su 
nombre. 
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Si el lenguaje utilizado fuera Assembler la comunicación re- 
altaría de una complejidad exasperante, ya que tendría que des- 
“ribir minuciosamente cada operación: especificar que se ponga 
un contenedor debajo de la salida de aceite, desenroscar el ta- 
piún, dejar caer el aceite hasta la última gota, etc. 

En FORTH, en cambio, basta con que se defina una sola pala- 
hira, por ejemplo llamada REVISION, estableciendo que a esta pa- 
labra correspondan toda una serie de revisiones y controles. Bas- 
lará con dirigirse al mecánico y pronunciar esta palabra para que 
lodas las operaciones sean efectuadas y, lo que es más importan- 
In, la palabra REVISION permanecerá en el diccionario para cual- 
«mier necesidad futura, a menos que se quiera prescindir explíci- 
lamente de ella o destinarla a otros fines. 

Fsta estructura piramidal (o, como decimos en informática, 
"lerárquica”) que permite la formación de palabras cada vez más 
complejas a partir de otras más sencillas, se podría comparar a 
las concavidades del terreno donde concluyan afluentes para for- 
mar cursos de agua cada vez más importantes. Tal estructura 
posee la ventaja de simplificar al máximo uno de los problemas 
We por sí más complejos en programación: la depuración de los 
errores sintácticos y lógicos (debug). Como el programa (o la pa- 
labra final; si piensa un poco verá que son la misma cosa) está, en 
41 base, formado por palabras comprobadas una por una inde- 
pendientemente del contexto, la búsqueda de errores se facilita 
grandemente. 

Siguiendo otra metáfora, más difundida, las palabras del 
FORTH son como perlas de un collar, ensartadas en un hilo y a 
su vez “cosidas” formando palabras cada vez más complejas. En 
efecto, la filosofía del FORTH es tal que algunos autores (vea la bi- 
bliografía) lo encuadran en la categoría de los llamados TIL (Threa- 
ded Interpretive Language), donde "threaded" significa, precisa- 
mente, cosido o enhebrado. 

Una gran ventaja de este lenguaje es su modularidad y es- 
Iructurabilidad; las palabras, una vez definidas, están siempre 
listas para su uso. Se parecen bastante a las “procedures” del 
PASCAL, pero esstán mucho más disponibles y utilizables. 

Antes de ver de qué manera se construye una nueva palabra 
(la operación es de una sencillez tremenda: bastará tan sólo con 
definirla) será necesario volver a repasar algunos concepto y for- 
mular otros nuevos. 
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DENTRO DE LA PILA (STACK) 
CON LA NOTACION RPN 


maginemos que queremos efectuar en una calcu- 
ladora de bolsillo la operación 


3x8 


En la mayor parte de las calculadoras tendre- 
mos: 


3 
3 
8 
24 


Este tipo de inserción de los datos (números) y de los opera- 
dores (x=) se llama notación (o sistema operativo) algebraico 
(SOA, o, en inglés, AOS). En ella se basan la mayor parte de las 
calculadoras que hay en el mercado y es la forma más conocida 
e inmediata de operar. Es como si le dijéramos al aparato: "toma 
el tres, multiplícalo por ocho y dame el resultado”. 

Pero este sistema operativo, en el que el operador se halla 
comprendido entre los operandos, no es el más eficaz. Habrán no- 
tado que al apretar el operador en las calculadoras corrientes el 
número que está en el display se apaga un instante. Lo que ocu- 
rre es que el microprocesador efectúa un control de memoria para 
comprobar que no hay en ella otra cosa más que un número (el 
último pulsado u obtenido). Todo ello se efectúa en pocos micro- 
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segundos, pero se trata, aun así, de un tiempo desperdiciado. Ha- 
brá observado también que con el resultado o con cualquier otra 
operación sucesiva esto no se produce. 

Otros sistemas operativos utilizan una notación en la cual el 
operador precede a los operandos. Quienes conozcan el Lisp (si 
no lo conoce, un próximo volumen de la B.BI. le dará la oportuni- 
dad de subsanar este fallo) reconocerán la expresión: 


(sum(3 4)) 


Esto es lo mismo que si dijéramos “suma 3 y 4”. 

El lenguaje FORTH utiliza la notación RPN (Reverse Polish No- 
tation), es decir, “notación polaca inversa”, así llamada en honor 
del polaco Lukasievisz, que la inventó. En un principio tal vez re- 
sulte algo complicada, pero basta con un poco de práctica para 
que se convierta en la cosa más natural de este mundo. 

Probablemente habrá tenido alguna vez entre las manos una 
calculadora de la firma Hewlett-Packard. Lo primero que le habrá 
llamado la atención es la falta de la tecla “=". Las calculadoras HP 
utilizan para sus operaciones un stack (pila, o pila operativa). Ex- 
plicaremos ahora, sirviéndonos de un ejemplo, de qué se trata y 
cómo funciona esta estructura, que al ser clave fundamental en 
este lenguaje, seguiremos viendo y necesitaremos a lo largo de 
los restantes capítulos. 

Podríamos comparar el stack a un depósito vertical móvil del 
mostrador de un restaurante, con un muelle que empuja hacia arri- 
ba los platos que guarda. Cada vez que se añade un plato el mue- 
lle cede un poco y toda la pila de platos desciende un puesto para 
admitirlo, En el caso contrario, si quitamos platos, el muelle se des- 
tensa y la pila sube el mismo número de puestos. Naturalmente, 
los últimos platos que pongamos serán los primeros en ser utili- 
zados y viceversa. Esta estructura se llama de tipo LIFO (last in- 
first out, es decir, "primero en entrar último en salir”). 

Los operadores (como en el caso del arterior, la multiplica- 
ción) trabajan en RPN sobre datos que ya están introducidos en 
el stack; el símbolo de la operación sigue a los datos que debe 
manipular. Evidentemente tendrá que existir en estas calculado- 
ras una tecla.que nos permita meter los datos en el stack antes 
de proceder a la operación. Refiriéndonos de nuevo a la HP, la te- 
cla para este fin es ENTER. 

Resulta claro ahora por qué la tecla “=" no tiene sentido algu- 
no, En notación polaca inversa el resultado aparece directamente 
en el display al apretar la tecla de operación. El ejemplo anterior 
se habrá convertido así en: 
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vecuencia 


Punto supe 


a 3 
ENTER 3 
8 8 
X 4 


que es lo mismo que si hubiéramos dicho a la máquina: "te doy 
13 y el 8, multiplicalos”. 

Vemos que después del 8 no es necesario pulsar ENTER. Efec- 
livamente, esta acción es sólo necesaria cuando queremos sepa- 
rar o distinguir dos números, pero aquí no hace falta, pues ya hi- 
unimos la distinción entre el 3 y el 8. 

Pongamos ahora otro ejemplo: imaginemos que queremos su- 
mar 3, 7 y 22. Podremos utilizar la secuencia 


Siguientes 


En las dos últimas fases lo que sucede es: calcula 7+22 y pone 
el resultado en el stack; a continuación suma a esa cifra el valor 
que encuentra (3) y el resultado lo coloca también en lo alto de 
la pila. 

Puede comprobar que en el display aparece siempre lo que 
se halla contenido en la posición (registro) más alta del stack. El 
display, como suele decirse, “señala” siempre hacia el registro que 
se halla más arriba ("Tos”, Top of stack) visualizando su contenido. 

Ahora bien, la misma operación vista antes puede efectuarse 
de otra manera: 
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Secuencia Display 


3 3 3 

ENTER 3 3 3 

7 eL dé 3 

+ 10 10 

22 22 22 10 
+ 32 32 -. 


La secuencia que resulta más intuitiva que la anterior equiva- 
le a: "te doy 3 y 7; súmalos.. Te doy ahora 22; súmalo a lo que has 
obtenido antes (que tienes en TOS)”. Esta secuencia ofrece, ade- 
más, la ventaja de que ocupa durante su ejecución sólo dos re- 
gistros de memoria (en lugar de tres). Asimismo, las operaciones 
se efectúan en cadena, es decir que se utiliza cada vez el resul- 
tado parcial y la secuencia de teclas a pulsar es menor (6 frente 
a 7). 

El ejemplo, por otra parte, nos indica que cuando efectua- 
mos una operación el propio símbolo indicativo hace de ENTER 
entre el resultado que provoca y el siguiente número que intro- 
duzcamos. 

¿Resulta de veras tan útil el RPN o es sólo cuestión de gustos 
y práctica? Cierto es que en lo referente al aspecto puramente ma- 
nual y como ocurre tan a menudo, el caminc ideal es el del me- 
dio. Por un lado resulta más sencillo plantear una operación en 
SOA, pero también es verdad que con él no se podrán obtener 
siempre los resultados parciales ni, por ejemplo, hacer compro- 
baciones en sentido inverso, sobre todo si hay paréntesis, en una 
o varias jerarquías. 

El RPN posee la pequeña desventaja de que, a primera vista, 
no resulta muy familiar, pero bastará un poce de práctica, que se 
obtiene con mucha rapidez, para tener a nuestra disposición un 

_ medio extremadamente potente, que permite realizar comproba- 
ciones parciales, cálculos en cadena con conservación de datos 
y utilización de constantes sin tener que recurrir a la memoria. 

Por otra parte, el RPN resulta mucho más lógico y obliga a ha- 
cer un análisis suplementario del problema para decidir el mejor 
planteamiento de los datos que hay que meter, cosa que en el fon- 
do no es negativa, Es, además, más rápido en su ejecución. Este 
factor, que posee poca importancia en relación con el tiempo ne- 
cesario para pulsar las teclas, resulta fundamental a la hora de tra- 
bajar con programas ya escritos, en ejecución, en los cuales la ha- 
bilidad manual del operador tiene poca importancia. 
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Pero el RPN resulta la mayor parte de las veces más cómodo 
y breve, incluso para cálculos manuales. Consideremos, por ejem- 
plo, la siguiente operación: 


(3x8)x (5-2) -(6-4) 


En SOA sería necesario pulsar 18 teclas (17 y el “=” final) para 
olectuarla. Veamos, en cambio, qué ocurre en la notación polaca 
invertida (aparece también el contenido del stack con la conven- 
ción de que el valor que se halla más a la izquierda representa el 
"POS, tal y como hasta ahora): 


Comienzo Stack vacío 


3 
ENTER 
8 


[no] 
[no] 


o] [10] 

NO omN0 SS 0 
[no] 
> 


=] 
H 
¡E no] 


3 
3 
8 
2 
5 
2 
2 
3 
2 
6 
6 
4 
2 
0 


Para obtener el mismo resultado hemos apretado sólo 14 te- 
clas; la conclusión es evidente, ¿no? 

De los ejemplos vistos hasta ahora puede fácilmente deducir 
on qué orden se extraen los números para las operaciones. Re- 
cuerde siempre que para que un operador pueda ser aplicado es 
necesario tener a.go en el stack y no olvide que el número situa- 
do en el TOS es el que se utiliza como sumando, sustraendo, mul- 
liplicador o divisor del siguiente. 
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OPERACIONES ARITMÉTICAS 


Algunas precisiones acerca de los números 


n FORTH la unidad base de los datos está repre- 
sentada por un número. Pero en este lenguaje, 
lo que hemos definido de una manera tan sen- 
cilla está constituido por el conjunto de valo- 
res que pueden ser representados en 16 bits 
(dos bytes) de la memoria del ordenador, o, me- 
jor dicho, en los 15 bits más a la derecha (de 
orden más bajo), al estar el bit más alto (most 
significant bit MSB) reservado para el signo 
(generalmente O=+ y 1=-). 

Debido a que en binario el valor mayor representable en tal 
supuesto es de +32767 tendremos que el campo de valores que 
con dos bytes podremos representar irá desde +32767 haata 

32168. : 

A menudo (un ejemplo puede ser la longitud del lado de un 
polígono, la duración de un período de tiempo o la dirección de 
una locación de memoria) no nos será necesario utilizar el bit re- 
servado para el signo, así que podremos usar todos los 16 bits. En 
este caso los valores que podrán ser asumidos irán desde O hasta 
65535. 

Estos números se llaman sencillos, con signo o sin él (unsign- 
ed=U) y, evidentemente, poseen un campo de variabilidad que 
no es muy elevado, sobre todo para las aplicaciones financieras 
y científicas. Charles Moore, en su artículo “The evolution of 
FORTH, an unusual language”, publicado en agosto de 1980 en la 
revista Byte, cuenta que el primer problema de este tipo le surgió 
cuando empezó a hacer los cálculos de los gastos consiguientes 
a la apertura de la FORTH Inc. y 
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Dejando de lado la anécdota (Moore, en su anterior vocación 
astronómica, suponemos que tuvo que vérselas con cifras mucho 
mayores) está claro que es fundamental poder disponer de nú- 
meros más elevados. Esto se consigue con los números dobles 
(señalados también aquí con la letra "D”: (D=doublenumber) tal 
vez más conocidos por ser utilizados en otros lenguajes como nú- 
meros de doble precisión; ocupan 32 bits de memoria. También 
aquí los hay con signo (vanabilidad de -2.147.483,648 a 
+2,147.483.647) y sin él (entre O y 4,294.967.295). 
ulnizas! 1nIcIUso numeros de inple y cuadruple precisión, pero en 
esta ocasión no nos referiremos a ellos. 

Es de lo más sencillo de este mundo introducir los números 
en el stack: bastará con teclearlos y pulsar a continuación ENTER 
(RETURN, END LINE, CR según el ordenador). Cada vez que se in- 
cluya un número nuevo toda la pila bajará un puesto. 

Las dimensiones de la misma varían según los sistemas, pero 
si tenemos en cuenta que incluso las calculadoras más potentes 
de HP, como la 41€ cuyo stack poseen sólo cuatro posiciones, pue- 
den efectuar los cálculos más complejos, se entenderá por qué 
sus dimensiones poseen relativamente poco interés, hasta el pun- 
to de que casi nunca se mencionan como dato relevante. 

De todas formas cualquier stack, ya sea de 10 ó de 300 plazas, 
obedece a ciertas reglas fundamentales. Teniendo en cuenta que 
se trata de pilas con fondo cerrado (al contrario que las calcula- 
doras de bolsillo, en las que cuando se añade a una pila de cuatro 
plazas, que son siempre con fondo abierto, un quinto valor, el pri- 
mero que fue introducido se pierde), la inserción de más valores 
que lugares hay disponibles produce el mensaje: 


STACK FULL 


y ése y los valores posteriores serán rechazados. 

Los números dobles se introducen en el stack de la misma ma- 
nera que los sencillos, pero deben contener un punto decimal. 
Este puede hallarse en cualquier parte: así, 90000, para ser intro- 
ducido en el stack, tendrá que teclearse como “900000”, “9.00000”, 
“900000”, o como mejor le parezca. 

Al trabajar en FORTH en un ordenador el resultado de la ope- 
ración se sitúa en el TOS, no en la pantalla, cosa que no resulta 
nueva. Salvo raras excepciones, cualquier sistema sobre el que 
se esté operando no proporciona directamente los resultados de 
sus cálculos. Para que el resultado aparezca en pantalla o impre- 
sora habrá que indicarlo, como con el PRINT del BASIC. En FORTH 

sta operación se efectúa incluyendo un punto [.] en la secuencia 
en el momento en que se quiera visualizar el resultado, 
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El punto [.] posee también la capacidad de extraer el número 
rlel TOS, así que se pierde y no estará ya disponible para su uti- 
linación. Más adelante veremos de qué manera se resuelve este 


problema. 
Para que un número doble que se halla en el TOS, con o sin 
(nos, aparezca =n pantalla, se requerirá un poco más de es- 
Miérzo. Será necesañio anteponer al [.] respectivamente las letras 


' 1) así tendremos [D.] y [U.]. 
Cuando el stack está vacío la operación de extracción deter- 
mina condiciones de error, y se produce el mensaje 


EMPTY STACK 


Tan sólo una última precisión: los ordenadores más corrien- 
les tienen procesadores de 8 bits. Esto quiere decir que incluso 
“l número más sencillo ocupará dos bytes de memoria (o dos 
hyles de stack, naturalmente). 

La manera en que está situado el número sencillo en estos 
dos bytes que ocupa depende tan sólo de la arquitectura general 
del ordenador. En algunos sistemas los ochc bits más altos se ha- 
lan en la locaciór de memoria más baja; en otros ocurre lo con- 
Irario. Como es lógico, con números dobles todo se duplica. Pero, 
on honor a la verdad, a menos que desee examinar la memoria 
bil por bit el asunto posee poca importancia. Será el procesador 
ol que tendrá que vérselas con esos problemas. La figura 1 mues- 
Ita de qué manera se hallan normalmente situados los números 
on el stack o en memoria. 


Suma 


t 


Como cualquier otro lenguaje, el FORTH posee una gama de 
operaciones matemáticas básicas. La palabra [+], como es lógico, 
má los dos números e se hallan en cabeza del stack y deja 
ima algebraica en el TOS, Naturalmente, para que el tesuliado 

¡wa visualizado habrá que añadir el punto final. Así pulsaríamos: 


3 + 


donde los espacios que introducimos marcan ya la separación en- 
Ire los números y los operandos. 

Al seguir esta secuencia con el RETURN se verá en la panta- 
lla el resultado (11) y quedará el stack vacío. Aprovechamos la 
ocasión para precisar que de ahora en adelante daremos por su- 
puesto que habrá que pulsar la tecla RETURN, a menos que el he- 
cho de omitirlo pueda originar confusión. 
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BITS 7 BITS O 


EN Figura ] —Formas de memorizar los distintos tipos de datos, 


Hay dos maneras de sumar varios números; por ejemplo, 
1+2+3+4 puede efectuarse de la siguiente forma (repetimos que 
con el espacio entre los números estamos sobreentendiendo ya 
el ENTER): 


VAT A A 10 OK 
o también de esta otra: 

12.34 e 10 OK 

El OK final aparecerá siempre después de cada operación o 
secuencia cuando se verifique sin errores. Si los hay aparecerá 
un signo de interrogación seguido, generalmente, por un breve 
mensaje que informa acercad el tipo de error cometido. 


Hay otras dos palabras de adición, [1+] y [2+] que añaden 1 
Ó 2 al TOS. Podrían parecer aparentemente superfluas, pero en 
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Nperaciones sobre la memoria o cuando no se quiera cambiar la 
posición de los números en el stack resultan muy útiles, ya que 
von ellas no se producen desplazamientos hacia arriba o hacia 
abajo dentro de la pila. 

Los números dobles utilizan la palabra [D+], cuyo significado 
os evidente. 


Resta 


La operación opuesta se efectúa con la palabra [-] que, y cuil- 
lado con esto, resta el número contenido en el TOS del segundo 
número del stack y coloca en TOS la diferencia (a menos que se 
quiera visualizarla por medio de [.]). 

Igual que con la suma, también en este caso existen las pala- 


bras [1-], [2-] y [D-]. 


Multiplicación 


La palabra [*] permite multiplicar dos números en el stack; el 
producto se mantiene en el TOS. ¡Atención! si no especificamos 
los tipos de números utilizados es posible caer en un error con 
lacilidad. Por ejemplo, al multiplicar 30000 por 2 se producirían, 
dada la limitación de los números sencillos con signo, condicio- 
nes de error (60000 supera los 32767). Esto puede ser resuelto uti- 
lizando la palabra [U*], que permite utilizar el octavo bit (núme- 
ros sin signo), de tal forma que la secuencia 


30000 2 U* . 60000 OK 


dará el resultado correcto. 


División 


La división posee tres operadores diferentes que, en todo 
O, A dividir el segundo número del stack por el conte- 
) en el TOS. 

Me prieta el más corriente, es [/] que deja en el TOS el co- 
nte truncado. Por ejemplo: 


ATA, 2 OK 


da el resultado efectuando el truncamiento (no el redondeo) de 
la operación. 
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La palabra MOD (módulo) hace la div:sión igual que la ante- 
rior, pero deja er. el TOS sólo el resto. La secuencia anterior se con- 
vierte en: 


11 4 MOD , 3 OK 


Nótese que el resto posee siempre el signo del dividendo. 

Por último U/MOD divide un número doble por otro sencillo, 
dejando en el TOS el cociente y en segundo lugar el resto. Se tra- 
ta, con alguna diferencia, del compendio de las anteriores. 

De igual manera que lo que ya vimos, existe la palabra 2/, 
cuyo significado es evidente. 


Jerarquía de las operaciones 


Muchos lenguajes evolucionados poseen jerarquías en el 
desarrollo de una secuencia de operaciones. En la notación pola- 
ca inversa, naturalmente, debido a la sintaxis tan particular usada 
en la resolución de operaciones, esto no tiene sentido. Recuerde 
que los números que hay que manejar, del mismo modo que los 
platos que el cocinero coge de nuestro imaginario estante, parten 
siempre de lo alto. 

Es por eso que algunas estructuras básicas aritméticas pier- 
den aquí todo significado. Por ejemplo, en las calculadoras de bol- 
sillo con RPN son del todo inexistentes los paréntesis y sus jerar- 
quías. En FORTH éstos tienen una función totalmente distinta y 
nunca para procedimientos matemáticos. Si le resulta difícil razo- 
nar de esta manera y piensa que se trata de una complicación inú- 
til, sepa que quienes se introducen en la RPN acaban por aban- 
donar casi siempre la notación algebraica y utilizar en su lugar 
la RPN. 


Otros operadores 


Hay además otras palabras destinadas a manipular aritméti- 
camente números presentes en el stack. Así [*/] calcula, del mis- 
mo modo que lo haríamos con papel y lápiz, la parte fraccionaria 
de un número; es necesario para ello poseer en stack tres valores 
(de abajo a arriba): la base, el numerador y el denominador de la 
fracción. : 

La palabra */MOD permite, además, conservar el resto. 

Elevar un nímero a una potencia se efectúa con [**], Por 
ejemplo: : 


SA 1024 OK 
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NEGATE cambia de signo el TOS 
66 NEGATE. . -66 OK 


ABS proporciona el valor absoluto del mismo modo que DABS, 
(que trabaja sobre números dobles. 

Por último, el lenguaje FORTH, igual que otros muchos, per- 
mite comparar dos números, de tal forma que pueda elegirse el 
Imayor o menor. Tendremos para ello las palabras MAX y MÍN, 


8 6 MAX . 6 OK 
E BM. OK 


Formalismo representativo 


Concluimos estableciendo un formalismo en la representa- 
ción usada. Por convenio, las operaciones, palabras y secuencias 
operativas se representan en FORTH de la siguiente manera: 


op. op. etc. - - - result. result. 


donde el número de operandos y de resultados puede variar des- 
de O hasta un número muy elevado; la secuencia "---” representa 
la(s) palabra(s) que hay que ejecutar. Por e:'emplo, la multiplica- 
ción sería del tipo 


Al Ma. =.5 2 


Esto significa que en TOS debe haber dos números (nl y n2). El 
grupo "---” representaría la ejecución de la palabra (en este caso 
[*]) y n3 el resultado. 

Una operación no tiene por qué dar necesariamente resulta- 
dos numéricos; hay una palabra, por ejemplo, que limpia el stack 
y que no requerirá, como es obvio, ningún número determinado 
de parámetros antes de su ejecución y tampoco podrá, natural- 
mente, presentar resultados después de ella. Esta se podrá repre- 
nentar como 


1, UE DAA A 
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MANEJANDO EL STACK 


emos dicho que el FORTH está, sobre todo, ba- 
sado en palabras (words) y ya hemos visto su 
funcionamiento como operadores aritméticos. 
Pero en el transcurso de un programa los da- 
tos en el stack no siempre se presentan en el 
orden deseado, sino que, siguiendo las leyes 
de Murphy, estarán siempre en el opuesto. De- 
ben existir, por tanto, algunas palabras que ten- 


nuevas palabras. 


Manipuladores del stack 


Se denominan así porque actúan sobre el contenido del stack 
efectuando duplicaciones, desplazamientos, inversiones, etc. A pe- 
sar de no ser muchos permiten prácticamente cualquier opera- 
ción en la pila; se trata de unas herramientas indispensables para 
definir las nuevas palabras que habrá que incluir en el dicciona- 
no básico del sistema. 
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La palabra de manipulación del stack más sencilla es DUP, 
que duplica el contenido del TOS desplazando hacia abajo la pila 
una posición. Se tendrá, por ejemplo: 


ni n2 = = = ni n2 n3 
o, de forma más clara: 
Stack DUP Stack 
5 (TOS) 
3 
2 


Hay otra palabra parecida, ?DUP (-DUP en FIG-Forth) que 
hace, antes de la duplicación, un test sobre el TOS, efectuando la 
duplicación del número sólo si éste es distinto de 0. 

DUP, independientemente de su uso a lo largo de un progra- 
ma, tiene una utilidad inmediata. Sirve, por ejemplo, para duplicar 
un número (DUP+), elevarlo al cuadrado (DUP*), el cubo 
(DUP DUP **), etc. Permite además remedia: un defecto grave de 
la palabra [.] que, al ser ejecutada, borra del stack el valor visua- 
lizado. Por ejemplo: 


aa DUR 24. QÉ 


visualiza el valor contenido en el TOS pero conserva en el stack 
una copia del resultado que podrá ser utilizada más adelante. No 
representa un problema el que los operadores siguientes lo em- 
pujen hacia abajo en la pila: otras palabras, ce las que hablaremos 
en breve, se encargarán de hacerlo emerger de nuevo. 

La palabra 2DUP tiene el mismo significado para números 
dobles, 

Si lo que necesitamos poner en el TOS es una copia, no del 
primero, sino del segundo número del stack, OVER (y 20VER) 
efectuarán esta operación. Se produce, por tanto, el proceso que 
aparece en la figura 2. 

PICK, una palabra que desgraciadmente no existe en FIC- 
Forth, es mucho más genérica y elástica: copia (cuidado, ¡no trans- 
fiere!) cualquier número presente en el stack al TOS. Como es ló- 
gico, se requerirá un parámetro que indique la posición del nú- 
mero que va a ser duplicado. Podremos representarlo de la forma 
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STOCK OVER 


w 
w 


No) Figura 2.—Secuencia de la palabra OVER. 


donde el nl es el número que se halla en el enésimo puesto del 
stack. 
En realidad, el mismo OVER no es otra cosa que 


2 PICK 


DROP borra lo que se halla en el TOS y desplaza un lugar ha- 
cia arriba todos los números. En la práctica funciona como [.], pero 
no visualiza (o imprime) nada. 

Hemos visto hasta ahora palabras que hacen una copia de nú- 
meros presentes en la pila. Pero puede ocurrir que lo que quera- 
mos sea tan sólo desplazar algunos números sin duplicar nada. 
Para ello se usar. tres palabras que permiten tomar del stack un 
dato para ponerlo en el TOS, El puesto libre dejado por el número 
retirado hace bajar la parte anterior de la vila un espacio, de tal 
manera que su profundidad permanezca inalterada. 

SWAP intercambia los dos números en cabeza de la pila. 

ROT efectúa (Fig. 3) esta misma operación, pero esta vez con 
los valores primero y tercero 


31 


STOCK ROT 


vo | 7 | 25 


E Figura 3.—Secuencia de la palabra ROT. 


Para números dobles sirven también las palabras 25WAP y 
2ROT. 

ROLL, que se halla sólo en FORTH-79 (y 83), permite el des- 
plazamiento de cualquier número al TOS. Por ejemplo: 


5 ROLL 


llevará el valor que está en el quinto lugar de la pila al TOS, des- 
plazando todos los demás hacia abajo. 

Con toda esta historia de duplicar e ir de arriba a abajo es fá- 
cil perder la cuenta de cuántos números hay presentes en el stack 
y cuáles son. Para evitar esto existe la palabra DEPTH que pro- 

orciona el número de posiciones (de 16 bits) ocupadas en la pila. 
videntemente, para números dobles (32 bits) el valor será igual 
a la mitad. La secuencia formal es: 


- - - n 


que informa que hay «n» posiciones de 16 bits ocupadas en el 
stack, es decir n/2 números dobles. h 

Por último, el FORTH posee un indicador especial llamado 
“stack pointer” (puntero o apuntador de stack), que conserva la di- 
rección del TOS. En cuanto se le reclama, el lenguaje activa una 
locación que contiene la dirección de la cima del stack. Cada vez 
que un número sencillo se incluye en el stack el indicador se de- 
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vrementa en 2; por tanto contiene la dirección de la posición más * 
ulovada del stack. 

Precisamente dos palabras específicas, 30 y SPO, pueden uti- 
harso para buscar la dirección del TOS y de la posición situada 
hor debajo del último número presente en el stack. La figura 4 es- 
iuematiza el uso y las funciones de esta palabra. 


A <«affe=a SPC deja esta dirección 
segundo número 


tercer número 


direcciones crecientes 


enésimo número 


«fp SO lee esta dirección 


10 Figura 4.—Posiciones y direcciones del stack. 
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CREANDO Y SUPRIMIENDO PALABRAS 


al vez a más de un lector le haya surgido la ten- 
tación de no seguir adelante con el libro debi- 
do a las complicaciones formales que el FORTH 
presenta sin ofrecer claramente, al menos hasta 
ahora, nada ventajoso a cambio. Lukasiewicz, 
matemático polaco a quien debemos la notación 
RPN, cuando se le preguntaba el por qué de tan- 
tas supuestas dificultades en este lenguaje, res- 
Nod pondía que lo que él había pretendido era no 
complicarse la vida con paréntesis, reglas jerárquicas y signos de 
igual, sin olvidar mencionar a este propósito la falta de iniciativa 
de quienes utilizaban el SOA. 

Si siguen adelante con la lectura acabarán por comprender la 
utilidad y ventajas que el FORTH y la RPN presentan. t 


Un diccionario personalizado 


Cualquier lenguaje, desde el BASIC al más complejo PLl, po- 
see una serie de instrucciones, órdenes básicas que una vez te- 
cleadas hacen que el ordenador ejecute algo. También el FORTH 
posee un vocabulario básico, más o menos numeroso según la im- 
plementación, pero que será siempre mucho menos voluminoso 
de lo que podríamos imaginar. 

Uno de los aspectos que hace del FORTH un lenguaje único 

nimitalole es que resulta posible definir un vocabulario propio 
/ hacer corresponder a la palabra que más nos guste una acción 
ll Operación. 
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Pongamos un ejemplo: imaginemos que tenemos en stack los 
números 4 y 6, que representan los lados de un rectángulo cuyo 
perímetro queremos calcular. Para ello tendremos que teclear: 


4d 

6 

DUP duplica el 6 

ROT lleva el 4 al TOS 

DUP duplica el 4 

+++ pone la suma en el TOS 


muestra el resultado 


Podría utilizarse también cualquier otra combinación adecua- 
da (por ejemplo: 462* SWAP 2* + 

En este lenguaje es posible definir una nueva palabra que, 
cada vez que se utilice, tomará los dos datos que se hallen en 
stack como lados de un rectángulo y calculará su perímetro. 
Veamos cómo. 

Establecemos en este caso que la palabra es PERIMETRO. Pul- 
semos: 


: PERIMETRO (permite calcular el perímetro de un rectángulo 
cuyos lados están ya en el stack). 
DUP 


ROT 
DUP 
+ 
+ 
+ 


y acabamos por último con el RETURN. Parece que no ha ocurri- 
do nada, pero si escribimos ahora “4 6 PERIMETRO” obtendremos 
un OK en pantalla, es decir, ha sido efectuada la secuencia de ope- 
raciones necesarias para calcular el perímetro del hipotético rec- 
tángulo y el resultado ha sido puesto en el TOS. 

Este ejemplo sirve para analizar la síntesis de la secuencia te- 
cleada: comienza con la palabra [:] que en FORTH avisa al siste- 
ma de que va a ser definida una nueva palabra. Sigue a continua- 
ción la expresión de la palabra en sí (nótese la separación de un 
espacio; espacios mayores que 1 serán ignorados); luego un pa- 
réntesis que indica la presencia de un comentario, cerrado por 
otro paréntesis (también éstos deben ir separados por un espa- 
cio) y, por último, la secuencia de operaciones necesarias para re- 
solver el problema. La última palabra [;] avisa al sistema de que 
la definición ha concluido. En la práctica es como si hubiéramos 
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ordenado al ordenador que cada vez que escribamos PERIMETRO 
desarrolle exactamente esa misma secuencia de operaciones. 

Como ven, poco a poco el tema va resultando algo más sa- 
broso.. Definiremos ahora otra palabra: 


: AREA (calcula el área de un rectángulo) 
* 
y también: 


: AMBAS (calcula perímetro y área de un rectángulo dados 

los lados) 

DUP ROT DUP (duplica los datos) 

PERIMETRO (calcula el perímetro) 

ROT ROT (pone arriba los datos para calcular el área) 

AREA SWAP 

el perímetro es igual a” . CR 

el área es igual a” ¿CR 

(fin definición) > 

Vemos aquí un nuevo elemento, la palabra [."], que permite 
visualizar un mensaje terminado con [”]. 

Tecleemos 


3 5 AMBAS 
y obtendremos: 


el perímetro es igual a 16 
el área es igual a 15 


seguidos por el consabido OK. 
CR (carriage return) es una palabra que permite saltar a la si- 
quiente línea. El stack, evidentemente, no contiene nada más. 
Vamos a empezar ahora a hacer cosas un poco más intere- 
santes. Si su ordenador no posee las palabras que calculan el cua- 
drado, el cubo o cualquier otra potencia será posible definirlas de 
la siguiente forma: 


: CUADRADO DUP *; 
: CUBO DUP DUP see 
o también 
:CUBO DUP CUADRADO * 
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También puede elevarlo a la sexta potencia al teclear 


ALAGS CUADRADO CUBO 


Podríamos compararlo a la construcción de un edificio utili- 
zando ladrillos, vigas y tubos para hacer luego toda una ciudad 
al juntar varios edificios. 

Los [:] efectúan también al ser usados otra serie de operacio- 
nes. En realidad, si pudiéramos "abrir" un lenguaje FORTH descu- 
brirlamos que posee una estructura de lo más desconcertante. En 
primer lugar es extremadamente compacto, funciona de una ma- 
nera intermedia, resultando como una especie de unión entre un 
intérprete y un compilador, con una mezcla en principio extraña 
de secuencias en Assembler y FORTH. 

Se trata a la vez de un sistema operativo, un monitor, un edi- 
tor y un conjunto de utilidades (escritas también en FORTH) que 
constituyen el diccionario. A pesar de ello en cuanto se carga está 
representado nada más que por el stack, un intérprete y el dic- 
cionario. Y todo ello a menudo se halla contenido en unos cuan- 
tos Kbytes (algunos de los más potentes que hay en el mercado 
no alcanzan los 10 Kbytes) sin disminuir nada por ello en cuanto 
a operatividad, elasticidad y potencia se refiere. 

Si no lo ha entendido todo acerca de la estructura del FORTH 
no vaya a preocuparse, pues en realidad no resulta nada sencillo. 
Por otra parte, el 99,9% de quienes programan saben muy poco 
acerca de cómo actúan las órdenes que están dando al ordena- 
dor. Y, al fin y al cabo, para conducir tampoco es estrictamente 
necesario saber de qué manera está hecho el motor en todos sus 
detalles... 

Bastará con saber que cada FORTH incluye dos programas 
que se encargan de transformar las combinaciones de caracteres 
tecleados en secuencias que la CPU puede interpretar y ejecutar. 

El primero de estos programas es el in:érprete; transforma y 
efectúa cada orden recibida; ésta, una vez ejecutada, se olvida y 
el intérprete se para y espera otra nueva. Esto es lo que ocurre 
cuando se utiliza el ordenador como calculadora o también con 
palabras complejas que, lo recordamos una vez más, equivalen a 
“programas” en otros lenguajes. 

El compilador, al contrario, no ejecuta inmediatamente la or- 
den sino que recuerda los extremos y conserva en memoria sólo 
la dirección del resultado. La palabra [:] es la que se encarga, de 
ponerlo en marcha "despertándolo” y señalándole que se quiere 
iniciar una compilación. La siguiente palabra que hemos elegido 
es el símbolo (token), es decir, algo así como la llave, la contra- 
seña, y hará que se ejecuten las operaciones sucesivas. La pala- 
bra [;] indica, por último, la conclusión de las operaciones. A par- 
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ir de ella se ejecuta la compilación que, si es correcta, irá segui- 
ela por el consabido OK o, en caso contrario, por "?”. 

Una vez compilada la nueva palabra entra a formar parte del 
diccionario. Incluso si se pierde su definición en código fuente (es 
decir, la secuencia comprendida entre [:] y [;]) no tendremos un 
problema demasiado grave: dentro de un poco aprenderemos de 
qué manera conservarla tal vez para modificarla y utilizarla en otra 
ocasión. De todas formas siempre es posible controlar las pala- 
bras presentes en el diccionario, tanto las predefinidas por la casa 
constructora como las que nosotros hubiéramos definido; bastará 
con teclear 


VLIST 


Al contrario del stack, que parte desde la posición de memo- 
ria más baja, el diccionario lo hace desde la dirección de memo- 
ria más alta. Por tanto VLIST comenzará desde la última palabra 
compilada e irá marcha atrás hasta la primera implementada por 
el constructor. Algunos sistemas proporcionan también a la vez la 
dirección. 

En nuestro caso, VLIST dará 


ALAS 
AMBAS 
AREA 
PERIMETRO 


(palabras precedentes). 


A veces puede ser necesario borrar del diccionario alguna 
palabra que ya no queremos conservar por ser inútil o errónea. 
Usaremos entonces FORGET, que va acompañada del nombre 
de la palabra que hay que eliminar. Pero hay que precisar algo: 
FORGET borra no sólo la palabra mencionada, sino también 
lodas aquellas definidas y compiladas posteriormente. Así: 


FORGET AREA 


borrará AREA, pero también AMBAS y ALAS. Más adelante expli- 
caremos por qué se produce esto (veremos que €s, incluso, ne- 
cesario); por el momento podremos tan sólo poner un ejemplo. 
Ya hemos visto que el sistema operativo es de tipo acumula- 
tivo, es decir, junta cosas para formar otras nuevas. Si se produje- 
ra la eliminación tan sólo de la palabra AREA, AMBAS contendría 
una palabra sin significado (AREA precisamente), lo que provo- 
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caría un error en el sistema. De esta forma FORGET, tal y como 
funciona, está verdaderamente a prueba de error, al menos bajo 
este punto de vista. Veremos después cómo esquivar este pro- 
blema... 

El programa compilador es tan potente que permite también 
volver a definir una palabra si se desea (algunos sistemas poseen 
una estructura de control contra definiciones múltiples). En efec- 
to, el sistema operativo no diferencia entre palabras ya presentes 
y aquellas añadidas al diccionario. En el momento en que se crea 
una nueva definición el ordenador se da cuenta de ello y avisa al 
usuario con un mensaje. S 

Si quisiéramos volver a definir CUADRADO para que calcu- 
lara, por ejemplo, en lugar de la segunda potencia, la mitad del 
valor en TOS y tecleáramos 


CUADRADO 2 / 
tendríamos un aviso del tipo 
CUADRADO NOT UNIQUE OK 


El OK final indica que, de todas formas, la nueva definición ha 
sido aceptada. La anterior permanecerá en el diccionario, aunque 
inutilizada, pues la búsqueda del valor y significado de las pala- 
bras se efectúa a vartir de la última definición. 

Si escribimos 


FORGET CUADRADO 


se borrará sólo la última definición de CUADRADO y, naturalmen- 
te, todas las palabras definidas después de ésa, de modo que 


3 CUADRADO 
producirá como respuesta 
9 OK 


vuelve a dar valores congruentes con la definición precedente, 
Cada palabra, entonces, puede ser redefinida sin ningún pro- 

blema. Puestos a imaginar podemos incluso cambiar el significa- 

do de los símbolos de operación. Se puede, por ejemplo, invertir 

el valor del signo + con 

E y 
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El sistema nos enviará el mensaje que indica la duplicación 
de una palabra. Al escribir seguidamente 


4 6 + 
obtendremos como respuesta 
-=2 OK 


Naturalmente, por el momento no es el caso de llegar a tanta 
sofisticación (scbre todo porque nuestro equilibrio mental podría 
resentirse); tome esto simplemente como información para de- 
mostrar la potencia del sistema operativo. 

Hay, además, otra palabra muy útil cue permite conocer si 
una dada existe o no en el diccionario. Se llama “tick” y está re- 
presentada por un apóstrofe ('). Veamos cómo se utiliza 


nombre de la palabra 


Deja la dirección de la palabra requerida en el TOS. Por ejemplo: 
+ 


proporciona (en este caso en un microordenador QL dotado de 
un FORTH de la Computer One): 


1950 OK 


1950 es la dirección en memoria de la palabra [+]. ¡Cuidado! 
Algunos sistemas, en el caso de palabras no definidas, dan una se- 
ñal de error, generalmente del tipo “.. non defined” borrando lue- 
go el stack (en ocasiones dan a continuación otro mensaje del tipo 
"2?  ”).De modo que, para evitar riesgos de este tipo, es pre- 
ferible utilizar VLIST. 

Por último, una palabra puede ser cambiada de nombre, ade- 
más de redefinida. En el primer caso el diccionario contendrá dos 
palabras con la misma función; en el segur.do, en cambio, será una 
sola pero con dos definiciones distintas y, naturalmente, se apli- 
cará sólo la más reciente. 

La técnica de cambiar el nombre de una definición se utiliza 
generalmente para hacer compatibles programas escritos en dia- 
lectos diferentes. Por ejemplo, la palabra ?DUP en FORTH-79 du- 
plica el TOS sólo si éste es distinto de cero. En FIG-FORTH tal fun- 
ción es efectuada por -DUP. Antes de utilizar un programa en FIG 
que contiene -DUP en un sistema compatible FORTH-79 será ne- 
cesario añadir al diccionario la definición 
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-DUP ?DUP ; 


¿Va haciéndose cargo de la potencia y flexibilidad del 
FORTH? 

En el momento en que se procede a definir y compilar nue- 
vas palabras resulta muy útil, y a veces obligado, introducir de 
vez en cuando en el vocabulario unos puntos fijos, de, digámoslo 
así, orientación, que permitan subdividir las nuevas palabras re- 
cién introducidas en función, por ejemplo, de su significado y uso. 
Se trata de una especie de marca que puede resultar útil en cier- 
tos casos. Esto puede hacerse por medio de palabras que no ha- 
cen nada del tipo 


word 
Puede usar un nombre cualquiera, incluso tal vez seguido de 
un número (¡cuidado con la longitud máxima admitida por el sis- 
tema!). Así tendremos, por ejemplo 


ab 1 
pepe 2 
pepe 3 
pepe z 
De esta forma es como si subdividiéramos el diccionario en 


capítulos, que harán más fácil de leer el VLIST. Será también po- 
sibble usar el FORGET de una manera más orgánica y eficaz. 
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MEMORIA, BLOQUES Y PÁGINAS 


Cómo conservar lo que nos interesa 


ualquier palabra definida y compilada puede 
utilizarse mientras permanezca en la memoria, 
es decir, mientras no la borremos o no se des- 
conecte la fuente de alimentación. Cierto es 
que un ordenador valdría muy poco si hubie- 
ra que teclear de nuevo todas las instruccio- 
nes de los programas después de cada encen- 
dido. Todo lenguaje dispone de instrucciones 

para cargar sus programas en algún dispositi- 
vo de Grabación (mass storage unit) y el FORTH no podía ser me- 
nos, de modo que existirán también palabras para las operacio- 
nes de carga, grabación, modificación y supresión de datos y pro- 
gramas en la memoria de masa, que puede estar constituida por 
disquetes (discos flexibles) o cinta. 

Hay un método que algunas personas emplean para conser- 
var las palabras que han definido, pero en honor a la verdad no 
es muy bueno: como a menudo el lengua¡e se proporciona en un 
disquete como si de un programa en código máquina se tratara 
bastará, al final, con salvar todo-el lenguaje en disco para poder 
disponer más tarde nuestras propias palaoras listas para la próxi- 
ma carga. Pero esto resulta poco eficaz, ya que incluso tras pocas 
sesiones el lenguaje habrá acumulado tantas palabras (inútiles 
las más) que resultará inoperante debido a la saturación de la 
memoria. 

Por otra parte, es siempre conveniente conservar una copia 
de las palabras propias en su código fuente (es decir lo que está 
definido entre las palabras [:] y [;]), para poder efectuar más tarde 
silo deseamos modificaciones, uniones o incluso para recordar y 
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entender las funciones y el significado de las diferentes palabras. 
En efecto, normalmente cada paquete FORTH contiene un progra- 
ma editor destinado a modificar los textos y programas ya intro- 
ducidos. 

A pesar de que es posible utilizar un ordenador dotado de 
lenguaje FORTH sin poseer unidad de memoria de masa, se con- 
vierte entonces en poco más que una calculadora. En FORTH, de 
todas formas, la unidad de disco (o de cinta: de ahora en adelante 
siempre que mencionemos una estaremos incluyendo también la 
otra) se utiliza de una forma diferente que en otros lenguajes. 

En FORTH un disquete puede compararse a un conjunto de 
casillas postales que, dispuestas ordenadamente y numeradas, se 
llaman bloques. Estos forman la unidad principal de transmisión 
de datos entre la memoria de masa y el ordenador, constan de gru- 
pos de 1024 bytes. Naturalmente, el número de bloques que hay 
en cada disco depende de la capacidad (caras, densidad) de la 
unidad en sí. Por ejemplo, un disquete de 514” de 13 sectores con- 
tiene 110 bloques, 

La palabra bloque se refiere generalmente a la transferencia 
de datos a código máquina, pero los disquetes pueden utilizarse 
también para contener programas en código fuente. La unidad 
principal, que comprende también un Kbyte (1024 bytes), se de- 
nomina en tal caso página. Habrá, por tanto, palabras que permi- 
tan compilar una página y otras ejecutar un bloque. A veces la pa- 
labra en sí se comportará de forma diferente según uno u otro 
caso. 

Las páginas están generalmente organizadas en grupos de 16 
líneas de 64 columnas (16x64=1024). Pero esto no es una regla, 
pues puede haber líneas de 40 caracteres y páginas de 24 líneas. 

Cada página o bloque reclamado por la unidad de memoria 
de masa o destinado a ella permanece en un área particular de 
memotia, llamada buffer, cuya amplitud es de 1024 bytes. El nú- 
mero de buffers que hay en un sistema puede ser de lo más va- 
riado, pero habrá al menos un par, incluso en las implementacio- 
nes más modestas. Una de sus funciones es obvia; reducir los tiem- 
pos de acceso a la memoria de masa durante el procesamiento, 
pues tales operaciones son más bien lentas, vor cuanto dependen 
de dispositivos mecánicos como las unidades de cinta o de disco. 

Las relaciones existentes entre los buffers, la memoria de 
masa, la pantalla y el teclado aparecen en la figura 5. Por suerte 
resulta bastante raro que el usuario necesite tener en cuenta cuál 
es la situación de los buffers en cada momento. De ello se encar- 
gará el sistema operativo que, en caso de necesidad, efectuará la 
operación que se requiera y dará el mensaje más conveniente. 

Cada bulfer está formado por un área de memoria principal, 
un identificador que contiene el número de bloque (o página) y 
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TERMINAL 


Figura 8.—Correlaciones entre memoria de masa, buffer, teclado y 
sistema de salida. 


ina bandera o identificador ("flag") que señala si el contenido del 
buffer ha sido modificado o no. Cuando el usuario pide que se car- 
gue un bloque en memoria, el sistema operativo inicia la búsque- 
da por medio del identificador; si ese bloque se halla ya en me- 
moria enviará un simple mensaje de OK, Si, por el contrario, resi- 
de aún en disco verificará el estado del buffer más próximo. Si la 
bandera está puesta a 1 (true), se transfiere su contenido al disco 
y carga el nuevo bloque en ese buffer. Como puede verse, la 
verdadera diferencia entre sistemas con distintas capacidades de 
bulfers se debe a la mayor o menor necesidad de transferir datos 
al disco, lo que comporta al final una pérdida de tiempo más o 
menos grande. 

Para escribir un programa en FORTH se siguen nueve fases 
principales: 


vaciar los buffers; 

seleccionar una página; 

ejecutar el programa editor; 

preparar las definiciones de las nuevas palabras; 
transferir el texto a la página. A menudo estas tres últimas 
fases están combinadas y representan, en la práctica, una 
sola fase formal o sustancial; 

conservar el código fuente redactado en disco; 

compilar el código fuente. Generalmente esto se efectúa re- 
clamándolo directamente del disco; a veces también se uti- 
liza el programa ya residente en memoria; 
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e ejecutar el programa y comprobar su validez y funciona- 

* lidad; : 

e concluir la sesión de trabajo o, en caso de error, dar cuenta 
de él y volver al paso 3 para su corrección. 


Vaciar los buffers 


Es el primer paso en la realización de un programa. Se de- 
vuelve el ordenador al estado de “limpieza” inicial. La palabra ade- 
cuada es: 


EMPTY__BUFFER 


Selección de una página 


Esto se efectúa con la secuencia: 
n SCR | - - - 


La variable SCR contendrá el número de la página utilizada; 
todas las operaciones de 1/O siguientes harán referencia a ella. La 
página 97 puede ser llamada con 


97 SCR ! 


Utilización del editor 


Las tres fases siguientes (llamar al editor, preparar las defini- 
ciones, transferirlas a la página) varían completamente de sistema 
a sistema. Se trata, en realidad, de efectuar las operaciones comu- 
nes a todos los lenguajes, como seleccionar y escribir líneas, co- 
rregir aunque sólo sean los errores cometidos al pulsar las teclas, 
mover el cursor, borrar definiciones enteras, parte de las mismas, 
etc. Para ello, a pesar de que hay un estándar del FORTH Interest 
Group, cada constructor da más importancia a ciertas fases de la 
edición que considera de mayor utilidad. Por este motivo es muy 
importante leer atentamente el capítulo del manual relacionado 
con tales operaciones. 

Una vez concluidas las operaciones de edición es convenien- 
te avisar al sistema de que la página redactada contiene informa- 
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ciones que hay que transferir al disco en la primera ocasión que 
se presente. Esto se realiza con la palabra í 


UPDATE 


y, por regla general, se produce automáticamente al final de cada 
sesión de edición o cuando una página está llena. 


Escritura de una página en disco 


Ahora hay que salvar el código fuente en disco en corres- 
pondencia con la página solicitada por la variable SCR. Esto equi- 
vale al SAVE o STORE de otros lenguajes y se obtiene con la pa- 
labra 


SAVE__BUFFER 


(FLUSH en FIG-FORTH). Tal comando no requiere parámetros 
puesto que cada buffer contiene ya un número de página-bloque. 


Introducción del código objeto en el diccionario 


El texto, o código fuente, está ya presente en disco. Para que 
las palabras que se hallan en él sean implementadas en el siste- 
ma (y en el diccionario) hay que ejecutar la palabra 


n LOAD 
Por ejemplo 
97 LOAD 


compila las palabras de la página 97 y las incorpora al diccionario 
exactamente igual que si fueran tecleadas y puede utilizarse de 
la misma manera. Nótese que en este caso la presencia en la me- 
moría central del buffer que ya contiene la página 97, evita ope- 
raciones en disco. En caso contrario la página se carga desde el 
disco y es inmediatamente compilada. 

A veces puede ser necesario, sobre todo en fases de depu- 
ración, aportar modificaciones al código fuente. Para ello bastará 
con escribir 


102 LIST 
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que dará un listado del programa en la pantalla, llamando a la vez 
al editor, el cual permitirá que sean efectuadas las operaciones 
de modificación, corrección y añadido necesarias. 


Examinemos un programa 


El programa, en código fuente naturalmente, está representa- 
do por 16 líneas, numeradas de O a 15 y que contienen las instruc- 
ciones destinadas a resolver un problema determinado. Vamos a 
referimos a la figura 6. La primera línea tontiene un comentario; a 


(CALCULO DEL IVA) 
(EL VALOR DEL IMPORTE ESTA EN TOS) 
3 IVA (DEFINE UNA NUEVA PALABRA) 


DUP DUP 
27 IP1OD: 5, (RECUERDE MULTIPLICA Y LUEGO DIVIDE) 
DUP ROT 


. “EL IVA, AL 12% SOBRE UN VALOR INICIAL DE S 
+ (SUMA EL IVA AL VALOR BASE) 
. "PTAS, LO QUE SUPONE UN VALOR TOTAL (IMPONIBLE MAS IVA)DE  ” 


(FIN DEFINICION) 


pas 
» 


as plo 
al 19) e] 


Figura 6.—Listado de la página “CALCULO DEL IVA" 


= E 


pesar de que la organización de la página es libre se suele intro- 
ducir en esta primera línea un comentario que dé información so- 
bre el contenido de la página. La segunda recuerda que el stack 
debe contener el valor inicial del importe. La línea 2 (tercera) de- 
fine la nueva palabra, IVA (naturalmente, puede ser llamada como 
se quiera). Las líneas 3, 4 y 5 efectúan operaciones, duplicaciones 
y trasposiciones en el stack. Desde la línea 6 en adelante se en- 
cuentra la verdadera salida (para que los mensajes en la pantalla 
estén más ordenados es aconsejable poner en las líneas 7,9 y 11 
un CR (carriage return), es decir, un “salto a la siguiente línea”). 

Como puede, ver los comentarios (totalmente ignorados por 
el compilador) abundan, cosa que no es mala idea ya que los pro- 
gramas en FORTH no son por sí de lo más claros precisamente. 
La utilización del programa es clara: 


20000 IVA 
dará 


EL IVA, AL 12% SOBRE UN VALOR INICIAL DE 20000 ES DE 
2400 PTAS, LO QUE SUPONE UN VALOR TOTAL (IMPONIBLE 
MAS IVA) DE 22400 

OK 


Puede ocurrir, y pasa a menudo, que un programa ocupe más 
de una página. La técnica normal de carga desde el disco impon- 
dría, si tuvieran que cargarse las páginas 50 a la 53, la pulsación de: 

50 LOAD 51 LOAD 52 LOAD 53 LOAD 
o, lo que es lo mismo: 

50 51 52 53 LOAD LOAD LOAD LOAD 

Otra técnica mejor podría ser definir en la primera de las pá- 
ginas que hay que cargar una palabra que cargue los siguientes. 
Por ejemplo: : 

CARGA 51 52 53 LOAD LOAD LOAD ; 


pero ésta tampoco es la mejor manera de hacerlo. El diccionario 
estándar del FORTH contiene en cualquier dialecto, la palabra 


—> 
que, si está situada en la última línea de una página, avisa al sis- 
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tema operativo para que se ocupe de cargar y compilar la página 


Así que si las páginas 50, 51 y 52 contienen en la última línea 
la palabra -—>, bastará con escribir 


50 LOAD 


para que las restantes, desde la 51 hasta la 53, sean cargadas e in- 
terpretadas. 
Hay además otra palabra: 


ÉS 


que detiene la interpretación de la página, a menudo al final de 
una secuencia [--->]. Se puede utilizar para separar los comenta- 
rios al final de una página y ahorrar así la fracción de tiempo ne- 
cesaria para reconocer éstos. 

Ya dijimos que la primera línea de una página se reserva ge- 
neralmente para hacer comentarios sobre las funciones de la mis- 
ma. Esto no es una costumbre o formalidad sin fundamento. En 
efecto, existe la palabra INDEX que muestra la primera línea de 
un grupo específico de páginas. Por ejemplo, la secuencia 


22 25 INDEX 


visualiza en la pantalla la primera línea de las páginas 22, 23, 24 y 
25. Es evidente lo útil que resulta INDEX para buscar páginas cuyo 
número no recordamos. El FIG-FORTH posee además la palabra 
FENCE (se trata en realidad de una variable reservada; ya vere- 
mos más adelante de qué se trata) que, utilizada en la forma 


XXXXxX FENCE ! 
ofrece una especie de seguro, ya que tanto la palabra xxxXxx como 
todas las anteriores no podrán ser borradas del diccionario. Natu- 
ralmente, existe también la función opuesta representada por la 
secuencia 


O FENCE 


50 


TODO TIENE UN PRECIO: MATEMÁTICAS 
EN COMA FIJA 


pesar de cuanto hemos dicho en la introducción, 
resulta impensable que todo lo mejorcito apa- 
rezca reunido y sin inconvenientes, ya que, 
como todo el mundo sabe, no hay rosas sin es- 
pinas. Vamos a tratar ahora esos temas que, si 
bien no son puntos realmente débiles, sí resul- 
tan, al menos, controvertidos. 

La que aparece como parte del título de 
este capítulo es, sin duda alguna, una de las 
cuestiones que recibe las mayores críticas y, por otro lado, las 
más enconadas defensas por parte de los usuarios del FORTH. 
Veamos de qué se trata y cuáles son los motivos de tales discre- 
pancias. 

SMS en una calculadora de bolsillo la siguiente ope- 
ración: 


2.50x3.31-1.175 


Valores introducidos 


Números en el display 


Como puede verse, el punto “fluctúa” según los valores deci- 
males que la calculadora debe representar. Esta representación 
de los números, en la que no tiene importancia la cantidad de ci- 
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fras decimales de ¿os operandos, se llama precisamente notación 
en coma flotante. 
Al efectuar 


004 / 2000000 


tendremos, en calculadoras en las que no pueden aparecer más 
de 8 cifras, el resultado 


2E-8 o 


es decir, el resultado se conservará en memoria como si de dos 
números se tratara: “2” y "-8”, 

La utilidad de tal notación consiste en que es posible alma- 
cenar una enorme gama de números, desde el más pequeño va- 
lor hasta las medidas astronómicas más grandes utilizando, aun- 
que sea a costa de una cierta aproximación, tan sólo dos números. 
Si tiene en cuenta que algunos ordenadores, incluso micros do- 
mésticos, son capaces de manejar valores entre E+500 y E-500 
(la distancia entre la Tierra y el Sol es de 1.44E8 Km) podrá com- 
prender lo inmensamente grande que resulta este campo de tra- 
bajo. 

La notación en coma fija, en cambio, es el método para con- 
servar valores en memoria sin variar la posición de la coma. Por 
ejemplo, si trabajamos con medidas en metros y centímetros to- 
dos los valores deberán ser reducidos a este submúltiplo. 

Imaginemos que queremos hallar el área de un rectángulo cu- 
yas dimensiones son 3.25 m y 2.25 m. La secuencia siguiente mues- 
tra cómo están organizados los datos en las dos operaciones di- 
ferentes: 


3/25 325 
Xx 
22 220 
Z 71500 
Resultado 


como 715 (-2)] 


Es decir. en coma fija se utilizan todos los valores tras haber- 
los “referido” a la unidad más pequeña o, lo que es lo mismo, to- 
dos los valores se utilizan como si fueran ente-os. 
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Consideremos ahora el siguiente ejemplo: hay que efectuar 
77/13 


cuyo resultado es periódico simple (5'923076923076..), al ser am- 
bos números primos entre sí y el divisor distinto de 2 y 5 o múl- 
tiplo de éstos. Queremos aproximar el resultado a las centésimas; 
con coma fija, deberemos prever dos puestos decimales efec- 
hiando 


1700/13 


que dará 592; y esta cifra, puesta de nuevo en orden (digámoslo 
así), dará el resultado con los dos decimales que queríamos. 

Posiblemente algún lector se esté haciendo la siguiente pre- 
gunta: ¿es realmente necesario complicarse la vida con todos esos 
problemas de reducción y de comas decimales cuando resulta 
tan sencillo teclear los números y esperar los resultados? 

En realidad la notación en coma flotante es más fácil y cómo- 
da para el usuario, sobre todo cuando el programa tiene que ma- 
nejar ecuaciones complejas cuyos resultados a menudo no son, 
en términos de valores absolutos, previsib:es. Sin embargo, el pro- 
gramador en FORTE utiliza el ordenador de la forma más eficaz 
posible, y así debería ser para cualquier otro lenguaje. El proble- 
ma radica en que los tiempos de manipulación de números ente- 
ros son mucho más reducidos que aguellcs con números decima- 
les (pueden llegar hasta 1/6). Además, al comprador de un orde- 
nador que debe resolver problemas complejos le parecerá más 
importante la rapidez de ejecución y velocidad de los resultados 
que la facilidad de programación. Así, pues, como siempre, todo 
es relativo y depende, en definitiva, del uso que usted vaya a 
darle. 

No hay que olvidar tampoco que el FORTH es un lenguaje 
destinado a operaciones en tiempo real y no hay otro más veloz 
que no sea el Assembler-lenguaje máquina, mucho más complejo 
y pesado de utilizar. Por otra parte, el FORTH fue destinado ini- 
cialmente a medidas de tiempo, controles automáticos, adquisi- 
ción automática de datos y, en general, overaciones que requie- 
ren una respuesta inmediata a una secuencia de entrada. 

Por cierto, ¿sabían ustedes que las tomas de "La Guerra de 
las Galaxias”, con Harrison Ford en su cápsula espacial y Obiwan 
con su espada láser, han sido filmadas con cámaras guiadas por 
programas en FORTH? Parece evidente que algunas cosas deben 
sacrificarse en favor de la rapidez, a costa incluso de un mayor 
esfuerzo por parte del programador. En Assembler resultaría mu- 
cho más penoso, mientras que el lenguaje FORTH alcanza casi to- 
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dos sus objetivos sin ser en realidad, como parece, tan complejo 
de utilizar. 

Hay también otra solución: la presencia de un chip que se de- 
dicara tan sólo a ejecutar cálculos en coma flotante. Esta solución 
resulta eficaz y seguramente podrá resolver de forma definitiva 
el problema. El mismo Moore ha integrado a menudo en sus or- 
denadores estos procesadores, lo que indica la utilidad y validez 
de tal solución. El problema es que, si bien hay equipos destina- 
dos desde un principio al FORTH que han sido construidos con 
esta integración, no podemos decir lo mismo del restante 99 por 
100 de las existencias, que poseen el FORTH implementado en dis- 
quete o en tarjeta, aunque es cierto que en este último caso el 
chip “matemático” puede a veces ser “simulado”. 

Hay también casos rarísimos en los que ha sido prevista la 
coma flotante, pero se trata de algo forzado y la velocidad des- 
ciende enormemente. 


% 
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EL CICLO ITERATIVO (DO-LOOP) 


asta ahora hemos tratado de palabras que eje- 
cutaban instrucciones de una forma secuencial. 
La palabra PERIMETRO que definimos en el ca- 
pítulo 6 permitía calcular el perímetro de un 
polígono dados sus lados. El programa se eje- 
cutaba en manera secuencial, es decir, el sis- 
tema calculaba la primera operación que apa- 
recía en la definición, luego la segunda, la ter- 
cera... hasta encontrar la palabra que implica 
la conclusión de la definición [;]. 

Surge a veces, sin embargo, la necesidad de efectuar una mis- 
ma operación repetidas veces. Si tuviéramos que hacer esto con 
las palabras que hemos visto hasta ahora se haría muy pesado y 
con algún que otro inconveniente. Pongamos un ejemplo: Vamos 
a suponer que queremos la lista de los 10 primeros números que 
aparecen en el stack; definimos entonces la palabra 


DIEZPRIMEROS 
CR CR CR CR CR 
ER ER ER OR UR 


Pero esta palabra ha sido definida de tal forma que resulta 
prácticamente inútil, además de muy rebuscada (¿qué pasaría si 
los números que queremos fueran 40, 100 o aún más?) y sin elas- 
ticidad alguna. 

Por suerte el FORTH, al igual que otros muchos lenguajes, 
realiza esta función si escribimos la operación una sola vez y la . 
metemos en un bucle (loop en inglés: anillo, ciclo) para que sea 
ejecutada un número «n» de veces. 
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La estructura fundamental de un ciclo LOOP es 
valor final+1 valor inicial DO ..(palabras).. LOOP 
La secuencia anterior será entonces 


'DIEZPRIMEROS 
11 1 DO . CR LOOP; 


Esta misma definición puede ser aún más elástica si hacemos 
que los límites del DO-LOOP no sean números fijos comprendi- 
dos dentro de la definición en sí, sino otros tomados del stack. De 
tal manera 


IMPRIME-N DO . CR LOOP; 


es una definición más universal y flexible, puesto que extrae del 
stack los valores límite del bucle. Así 


11 1  IMPRIME-N 


funcionará de la misma manera que DIEZPRIMEROS. 

Es conveniente recordar de nuevo que cuando el intérprete 
FORTH encuentra los números 11 y 1 los carga en ese mismo or- 
den en el stack. Es precisamente por este motivo que en las de- 
finiciones de estructuras LOOP que hemos visto el valor final se 
indica antes del inicial. 

Tan sólo una aclaración más, con su ejemplo correspondien- 
te. Esta vez queremos saber los cubos de los números del 15 al 7. 
En el capítulo 6 definimos ya la palabra CUBO (DUP DUP ** o tam- 
bién DUP CUADRADO *) suponiendo, claro está, que el sistema 
no posee la palabra [**]. Tendremos: 


YY DO CUBO . LOOP ; 
que para 
14 Y YY 
nos dará 


3375 2744 2197 1728 1331 1000 729 512 343 
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Pero podemos hacer ahora un trabajo "más fino” si definimos 
la siguiente palabra: 


YYz (calcula el cubo de los números com- 
prendidos entre los valores que hay en 
el stack) 

DO 

DUP (duplica el número para obtener una co- 
pia del valor del cual se calcula el cubo) 

CUBO (cálculo del cubo) 

SWAP 

“el cubo de”..“es”. (imprime el valor de la raíz y del cubo) 

CR (a la línea siguiente) 


LOOP 
(fin definición) 


Probablemente más de un lector se habrá dado cuenta de 
que el valor final queda siempre aumentado en 1. ¿Por qué ocu- 
rre esto? Vamos a tratar de explicar de qué manera funciona la 
secuencia DO-LOOP (Fig. 7). El FORTH lleva la cuenta inicializan- 
do un índice (una posición de memoria particular o contador) con 
el valor inicial y añade 1 cada vez que encuentra la palabra LOOP; 
evidentemente, después de haber pasado la primera vez por ella 
el contador vale 2 y como la salida del bucle se produce cuando 
el valor del indice es igual o superior al valor de fin de bucle es 
necesario que el valor final sea, precisamente, superior en uno a 
la diferencia final-inicio que deseamos realizar. Puede hacerse 
esto mismo reduciendo en 1 el valor de partida. 

Los valores inicial y final pueden asumir, dentro de los límites 
de la matemática en coma fija (a menos que se posean sistemas 
con coma flotante), cualquier valor numérico. De modo que -11 y 
-3, -3 y +5, -8 y O serán valores admitidos que permitirán la eje- 
cución del mismo número de operaciones. 

Veamos ahora una palabra muy útil que se relaciona mucho 
con DO-LOOP. Se trata de [1] (representa la primera letra de In- 
dex) que realiza, nada más ser ejecutada, una copia del índice y 
lo sitúa en el stack. Puede ser incluida en cualquier punto que se 
desee entre DO y LOOP. El valor salvado de esta manera pode- 
mos imprimirlo, duplicarlo, añadirlo al segundo número en stack 
o podrá ser utilizado para cualquier otro fin como si de un pará- 
metro cualquiera se tratase. Su forma general es: 


valor final+1 valor de partida DO .. 1. LOOP 
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hn 
NO 
Si 


] | Figura 7.—Diagrama de flujo de una secuencia de DO-LOOP. 
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Incrementos no unitarios en los bucles 

El FORTH permite también un nuevo tipo de bucle que ad- 
mite incrementos (o decrementos, bastará con utilizar un valor ne- 
gativo) distintos de 1. Su forma es 


valor final+1 valor inicial DO .fpalabras). n+LOOP 


donde “n” es un valor cualquiera, positivo o negativo. Este bucle 
toma, como siempre, los dos valores que se hallan en la cima del 
TOS como límites del ciclo e incrementa el contador en un valor 
“n”. Naturalmente, si “n” es positivo, el valor final será más grande 
que el inicial, de lo contrario será al revés (el índice tendrá que 
asumir, claro está, un valor inferior o igual al final). 

Ponemos a continuación un ejemplo de utilización de esta pa- 
labra: queremos definir una palabra que calcule el factorial de un 
número. Incluimos entonces en el diccionario la palabra [!!] (no 
puede utilizarse el signo del factorial, !|, ya que en FORTH sirve 
para otra cosa). Tendremos: 


!! (define la palabra del factorial recorda- 
mos que el factorial de un número “n” es 
el producto de los números consecutivos 


entre 1 y n) 
DUP (conserva una copia del número) 
1+ (incrementa el valor final) 
1 DUP (valor inicial) 
1+ (leva el valor inicial a 2 para evitar la pri- 
mera multiplicación) 
ROT (Neva el valor final al TOS) 
DO , 
1 (escribe en el TOS el valor en curso del 
bucle) 
ro (calcula el primer producto del factorial) 
LOOP (fin de bucle) 
SWAP (intercambia valores inicial y final) 
“el factorial de” .. “es”. 
CR 


á (fin definición) 


La definición posee una vez más abundantes comentarios. 
Esta es la única forma de que un programa resulte claro, pues de 
otra manera no sería siempre comprensible en su totalidad. Si ana- 
lizamos el stack (Fig. 8) la definición resultará aún más clara. Ha-. 
cemos sólo mención a los límites impuestos por los números de 
simple precisión, aunque, naturalmente, en caso de necesidad la 
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DESPUES DE LA PALABRA 


+ “ROT "DO 1 11* + ¿EOOP SALIDA 
FINAL 


1 2 n JA] 
n+1 1 n 
n n 


Figura 8. —Análisis del stack durante la ejecución de la palabra "!!”. 
n=Número cuyo factorial se quiere calcular. 


definición podría ser redactada utilizando números dobles y pa- 
labras específicas para ello. 

Igual que en otros lenguajes, unos bucles pueden estarinclui- 
dos en otros; por ejemplo, cuando queremos inicializar o asignar 
valores a una tabla bi o multidimensional. Tales bucles se dice 
que están anidados y no presentan ninguna dificultad especial. 

Prácticamente ya hemos terminado de hablar de la estructura 
DO-LOOP,; sólo nos queda puntualizar algo sobre una cuestión que 
tal vez se habrá planteado ya algún lector. Veamos un ejemplo 
que será siempre más eficaz que cualquier definición; durante el 
bucle, ¿dónde se conserva el valor en curso del ciclo? Podría pa- 
recer obvia la respuesta: “¡se encarga de ello el sistema operati- 
vo!” Pero el FORTH debe su éxito y rapidez, orecisamente, a la es- 
tructura tan ordenada y “transparente” para el usuario, quien pue- 
de conocer todo lo que ocurre en el sistema, al cual puede acce- 
der en cualquier punto. 

Todo sistema FORTH posee un segundo stack, el Return Stack, 
igual en todo al anterior, con la diferencia de que a éste el usuario 
no puede acceder directamente. Está organizado de la misma ma- 
nera (estructura LIFO, direcciones decrecientes de memoria ocu- 
padas, etc.) y el programa en sí podrá utilizar.o para algunas o, me- 
jor dicho, muchas de sus funciones. 

Por ejemplo, en el DO-LOOP el FORTH utiliza el Return Stack 
para llevar la cuenta de los valores del bucle, tanto de los inter- 
valos como del nivel final. Al final de cada bucle el valor situado 
en el TOS del Return Stack es comparado con el valor final, pre- 
sente en el segundo puesto, y si no es mayor o igual se incre- 
menta con el valor del intervalo, presente en tercer lugar (algu- 
nos RS tienen intercambiado el puesto del segundo y tercer va- 
lor). Una vez que se verifican las condiciones de salida, los núme- 
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ros son extraídos del RS, quedando así éste limpio para operacio- 
nes sucesivas. 

El RS sirve para otras muchas funciones del sistema. Por ejem- 
plo, la palabra [*/] (multiply then divide, multiplica y luego divi- 
de) conserva el resultado intermedio de doble precisión, precisa- 
mente en el RS. Una vez más la palabra [1] no hace otra cosa sino 
efectuar un DUP del RS en el TOS del Data Stack (el Stack del que 
habíamos hablado hasta ahora). 

A pesar de que, como hemos dicho, el R5 está reservado en 
exclusiva para las necesidades del sistema operativo (algunos RS 
originariamente eran del todo inaccesibles), existen algunas pa- 
labras que actúan sobre él, Sin embargo, el RS es mucho más de- 
licado y difícil de manejar que el DS, así que hay que poner mu- 
cho cuidado y atención al utilizar dichas palabras. Estas son: 


transfiere “n” desde el Data Stack al Re- 
turn Stack; 

transfiere 'n” desde el Return Stack al 
Data Stack; 

copia el número que está en el TOS del 
Return Stack en el Data Stack; 

Como RO; ya vimos su utilización al 
hablar del bucle; 

copia el segundo número del Returm 
Stack en el TOS del Data Stack; 

copia el tercer número del Return 
Stack en el Data Stack. 


Como puede ver hemos incluido también la palabra (1, que 
ya conocíamos y que, en realidad, corresponde a la secuencia 


R> DUPS.>k 


Naturalmente la palabra [1] podrá ser utilizada fuera de un bu- 
cle también. 

En resumen, el Return Stack puede servir como una “tercera 
mano” que conserva temporalmente datos para un próximo uso. 
A pesar de eso es aconsejable habituarse a emplearlo lo menos 
posible y, de todas formas, habrá que extraer los datos en él con- 
tenidos antes de terminar las operaciones de una definición (es 
decir, antes de la palabra [;]). Esto se debe a que la palabra [;] re- 
cupera en el TOS del RS un apuntador de memoria, así que no es 
posible utilizar el RS para transferir parámetros de una palabra 
a otra. 
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BUCLES CONDICIONALES 


Tomando decisiones 


e dan casos en los que el ordenador tendrá que 
vérselas frente a una elección condicional, es 
decir, que deberá tomar una decisión. En este 
capítulo trataremos precisamente de las instruc- 
ciones que permiten al ordenador tomar las de- 
cisiones que nosotros consideremos oportunas. 
En FORTH tales estructuras son, en muchos as- 
pectos, parecidas a las de otros lenguajes; la di- 
paseis ferencia estriba en que en el FORTH tal decisión 
se toma en base al valor verdadero-falso de un indicador situado 
en el TOS. 

Este indicador, o bandera (flag, en inglés), se considera ver- 
dadero si su valor es (o, como suele decirse, está puesto a) 1 y 
falso cuando está puesto a 0. Una serie de palabras, llamadas de 
comparación, se encargan de efectuar las comparaciones necesa- 
rias. Vamos a mencionarlas a continuación con una breve expli- 
cación de su utilización y valor: 

El significado de estas palabras se comprende fácilmente de 
modo que no requieren ulteriores explicaciones. Como es lógico, 
será necesario que estén en el stack los valores que hay que com- 
parar. Por ejemplo: 


O 


dará 


1 
OK 
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0< n - - - flag pone el flag a 1 si n<0 

0= n - - - flag igual si n=0 

0> n - - - flag igual si n>0 

< nl n2---flag [pone el flag a 1 si nl<n2 

= nl n2 - - - flag | igual si nl=n2 

> nl n2---flag | igual si nl>n2 

< nl n2 ---flag | igual si nl es distinto de n2 
nl n2 - - - flag |como < pero con números sin signo 
d - - - flag lo mismo con números dobles 
dl d2 - - - flag |lo mismo con números dobles 
dl d2 - - - flag |lo mismo con números dobles 
dl d2 - - - flag | lo mismo con números dobles 
flag 1 - - - flag 2| invierte el valor de la bandera 


n---n(n) duplica “n” sólo si es distinto de 0. 


Pero entonces los valores 3 y 5 desaparecerán del stack. Si 
se quieren conservar habrá que hacer: 


$15 “OVER: OVER <. : CR 


Dos tipos de bucles condicionales: Begin-Until 
y Begin-While-Repeat 


El ciclo BEGIN-UNTIL es muy similar al DO-LOOP, pero el nú- 
mero de repeticiones que hay que efectuar no está especificado. 
En efecto, una operación se repetirá un número indefinido de ve- 
ces hasta que (UNTIL) se verifiquen ciertas condiciones determi- 
nadas. Para ello tendremos que usar las operaciones de compa- 
ración que hemos definido anteriormente. 

El bucle BEGIN-WHILE-REPEAT realiza una secuencia mien- 
tras (WHILE) que se cumpla una condición. La expresión de estos 
dos tipos sería: 


BEGIN .. flag UNTIL 
BEGIN flag WHILE REPEAT 

donde los puntos suspensivos representan unas operaciones y 
flag es la bandera verdadero-falso presente en el TOS que ya men- 
cionamos. 
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Existe una diferencia entre ambas formas: la primera repite 
las operaciones entre BEGIN y UNTIL hasta que el indicador se 
ponga a l; la segunda forma repite las operaciones entre BEGIN, 
WHILE y REPEAT hasta que el indicador adopte el valor 0. 

Pero la diferencia sustancial estriba en que la forma BEGIN- 
UNTIL es efectuada (recorrida) al menos una vez, ya que el test 
de comparación se hará al final del ciclo. La forma BEGIN-WHILE- 
REPEAT permite saltarse las operaciones entre WHILE y REPEAT 
en el caso de que el indicador tenga el valor 0. 

La forma BEGIN-UNTIL resulta muy útil para el cálculo de las 
funciones convergentes o de valores que se aproximan indefini- 
damente a un valor final por medio de una secuencia repetitiva. 
El ejemplo más clásico es el cálculo de la raíz cuadrada de un nú- 
mero. Este puede efectuarse en un ordenador con el método de 
Newton, utilizado prácticamente en todos los lenguajes menos en 
BASIC, FORTRAN o Pascal, donde tal función está ya definida (SQR, 
SORT o como mejor le pareció a quien escribió el lenguaje). En 
FORTH, en cambio, lo corriente es que no la tenga (siguiendo la 
filosofía de "hazlo por ti mismo”) y he aquí que se nos presenta 
una estupenda ocasión para echarle una ojeada a un sistema sen- 
cillo y genial para calcular con la aproximación que se desee esa 
función, utilizando sólo las cuatro operaciones de una manera fácil. 

El método de Newton para calcular una raíz cuadrada es la 
cosa más simple de este mundo: establece que si A es un valor 
aproximado de la raíz cuadrada de un número 'n”, 


Al=(n/A+A)/2 


es una aproximación mejor. Es decir, que cada vez que se apli- 
que esta fórmula a un valor ya calculado, el resultado obtenido ten- 
drá un valor más próximo al valor final de la raíz. ' 

Vamos a poner un ejemplo. Queremos calcular la raíz cuadra- 
da de 4225, El primer valor aproximado que utilizaremos será 2 (3, 
1, 50 o cualquier otro, pues valdrá cualquiera). Tendremos: 


A1=(4225/2+2)  =1057 
A1=(4225/1057+2)=530 
A1=(4225/530+2) =268 
A1=(4225/268+2) =141 
Al1=(4225/141+2) =85 
Al=(4225/85+2) =67 
Al=(4225/67+2) =85 
Al=(4225/65+2) =05 


con la gráfica de la función como aparece en la figura 9. 
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Figura 9.—Sucesión convergente de los valores de la raíz calcula- 
dos con el método de Newton. 


Vamos a implementar la palabra SOR para aquellos FORTH 
que no poseen raíz cuadrada, con la siguiente secuencia: 


: SQR 

1 

BEGIN 
OVER 
0 3 'PICK 
U/MOD 
SWAP 
DROP 


SWAP 
OVER 


UNTIL 
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(calcula la raíz cuadrada del número en 
TOS utilizando el método de Newton). 
(propone 1 como pr:mer valor aproxima- 
do; cualquier otro valor será válido) 


(estado del stack: n 1 n) 

(copia el tercer número en el TOS; esta- 
do del stack: 1 0 n Ln) 

(estado del stack: cociente resto 1 n: re- 
cordamos que U/MOD divide un número 
doble por uno sencillo) 

(estado del stack: resto cociente 1 n) 
(cociente 1 n) 

(1 cociente n) 

(cociente 1 cociente n) 

(efectúa el test de comprobación para 
comprobar si el resultado es igual al va- 
lor aproximado precedente, en el primer 
ciclo igual a 1) 

(empieza de nuevo desde el principio 
con el cociente que representa el nuevo 


valor aproximado, y con “n'intacto). 


SWAP “la raíz cuadrada de”. es“. 
| (fin definición) 


Una vez más los comentarios son abundantes (pero nunca su- 
perfluos en FORTH). 
Algunos sistemas poseen otra forma de bucle del tipo 


BEGIN .. AGAIN 


que representa el verdadero bucle incondicionado, de modo que 
el sistema va continuamente adelante y atrás sin parar. Esto pone, 
en la práctica, al sistema en un “círculo vicioso” en espera, por 
ejemplo, de una interrupción o de un aviso por parte de un dis- 
positivo de entrada/salida. Para simular esta forma en cualquier 
sistema basta con hacer BEGIN .. O UNTIL. 


Las estructuras IF-THEN e IP-ELSE-THEN 


También estas son estructuras condicionales. Con la primera 
es posible saítar o no una operación; con la segunda, escoger en- 
tre dos operaciones 


flag IF .. (flag=1) .. THEN 
flag IF... (flag=1) .. ELSE .. (flag=0) .. THEN 


Como puede verse, aparece una vez más la mano potente de 
la RPN que impone la presencia del valor (0 6 1 del indicador) 
antes del operador (la palabra IF). En ambos casos IF' hace un test 
(¿verdadero o falso?) de la bandera situada en el TOS. 

Si flag=1 se efectúa la operación entre IF y THEN, en la pri- 
mera estructra, y en la segunda estructura, la que está entre IF y 
ELSE. En caso contrario se saltará la operación en la primera, mien- 
tras que en la segunda se ejecutará la secuencia situada entre 
ELSE y THEN. 

Imaginemos, por ejemplo, que queremos programar una má- 
quina que pesa los equipajes en un aeropuerto para que los agru- 
pe en base a su peso según que éste sea superior o inferior a 
15 kilos. Cada vez que pongamos una maleta en la báscula se efec- 
tuará la secuencia: 


IF 
“El peso supera los 15 Kg” 
CR 
ELSE 
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Peso inferior o igual a 15 Kg” 
HEN 


Los tests condicionales pueden estar también anidados uno 
dentro del otro. Supongamos que queremos clasificar las maletas 
según su peso de la siguiente forma: hasta 10 kilos, entre 10 y 20 
kilos, y más de 20 kilos. Tendremos entonces: 


: COMPARACION (permite comparar un número o incluirlo 
en una de las siguientes clases: n<10; 
10<n <20; n>20) 


DUP (duplica el TOS para utilizarlo eventual- 
mente después de ELSE) 

10< (efectúa el primer test) 

CR 

IF 


“equipaje que pesa 

menos de 10 Kg” 

DROP (borra el valor duplicado y sigue hasta el 
final) 


“equipaje que pesa 

más de 20 Kg” 
ELSE 

equipaje que pesa 

entre 10 y 20 Kg” 
THEN (fin del bucle interior) 
THEN (fin definición) 
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Hay, por último, dos palabras que permiten salir anticipada- 
mente de un bucle: se trata de LEAVE y EXIT. La primera hace po- 
sible la salida del bucle al final del ciclo y asigna al límite el valor 
en curso en el contador. EXIT es aún más drástica, pues concluye 
inmediatamente una definición, es decir, funciona como una pala- 
bra [;] englobada dentro de la misma definición. Esta segunda de- 
finición funciona y debe ser utilizada fuera de un ciclo DO-LOOP. 

Evidentemente, ambas palabras deberán estar controladas 
con un IF condicional: según el resultado de éste se efectuará 
(o no) la salida forzada del bucle. ! 
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VARIABLES, CONSTANTES Y TABLAS 


a hemos visto que el FORTH utiliza el stack 
como un área de estacionamiento temporal de 
datos para hacer cálculos, comparaciones o 
también transferir informaciones de una pala- 
bra a otra. Si, en cambio, lo que queremos es 
conservar números y valores de forma más 
permanente o bien tenemos que recurrir a 
esos números a menudo o si tales cifras han de 
PERS ser puestas al día cada cierto tiempo, habrá 
que tener a nuestra disposición un medio más estable y fijo que 
nos permita poder hacer referencias rápidas y sencillas. 


Las variables : 


En FORTH una variable se define simplemente al utilizar la pa- 
labra VARIABLE seguida del nombre, Por ejemplo, la secuencia 


VARIABLE GONZALO 


efectúa dos operaciones: incluye el nombre GONZALO en el dic- 
cionario y reserva dos bytes de memoria para alojar el valor que 
tal variable representará. Una vez definida dicha variable existe 
aunque no esté inicializada (es decir, no contenga nada). Para asig- 
nar un valor a la variable GONZALO, por ejemplo 320, hay que uti- 
lizar la palabra [!] (store) de la siguiente manera: 


320 GONZALO ! 
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El FIG-FORTH, generalmente más pobre y algo rígido, es en 
este caso más práctico y eficaz, pues en él ambas operaciones se 
pueden combinar en la secuencia: 


320 VARIABLE GONZALO 


El hecho de cambiar el valor de una variable resulta igual de 
rápido: será suficiente con volver a efectuar la operación. Así 


420 GONZALO ! 


es lo único que habrá que teclear. 
Para conocer el valor de una variable se necesita la palabra 
(D(recuperar), de forma que al escribir 


GONZALO € 
obtendremos por respuesta 
420 OK 


Existe, por otra parte, la palabra [?] que podemos definir de 
la siguiente manera: 


5D 
entonces la secuencia 
GONZALO ? 


dará por respuesta el mismo resultado que antes. 

De todas formas, cualquier FORTH tiene un pequeño grupo 
de variables predefinidas. Una de ellas es [BASE], que permite es- 
tablecer el sistema de numeración deseado. Generalmente hay 
también algunas variables predefinidas de numeración de uso co- 
rriente, como HEX (hexadecimal), DEC o DECIMAL, OCT (octal) y 
también BIN (binario). Pero siempre podrán ser definidos distin- 
tos sistemas de numeración con secuencias del tipo: 


¡BASES  5BASE!; 
:BASE9  9BASE!; 


o como mejor les parezca. Aunque la utilidad de estas bases “ra- 
ras” (distintas de 2, 4, 8, 10 6 16) no es grande. 
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En resumen: el uso de VARIABLE es parecido a la operación 
de introducción de una nueva palabra en el diccionario, con la ex- 
cepción de que esto se efectúa con la palabra VARIABLE en lu- 
gar de con la secuencia [:] y [;]. En este caso, naturalmente, no 
será necesario especificar cuál es la función de esa palabra. 

En la práctica lo que ocurre al escribir 


50 GONZALO ! 


podemos esquematizarlo de la siguiente manera: 


— 50 se sitúa en el stack; 

— el intérprete busca en el diccionario GONZALO, 

— cuando lo ha encontrado ejecuta inmediatamente una pa- 
labra específica (EXECUTE) que busca y copia en el stack 
la dirección de la palabra CONZALO, 

— la palabra [!] toma del stack la dirección y el valor 50, va 
a la posición hallada por EXECUTE y coloca allí el valor 
50, borrando cualquier otro que existiera anteriormente. 

Lo mismo se podría decir con las pertinentes modificaciones 

para [O] o [?]. Por ejemplo, con la frase 


GONZALO 
ocurrirá lo siguiente: 


— el intérprete busca en el diccionario GONZALO; 

— ejecuta la palabra EXECUTE; 

— una vez recibida la dirección va a esa posición y toma una 
copia del valor que hay allí. 


Debería haber quedado claro el proceso, pero aunque así no 
fuera no es demasiado importante, ya que al menos al comienzo 
es suficiente con saber utilizar bien la palabra VARIABLE, cosa 
que, por otra parte, no requiere ningún esfuerzo particular. 

Hay una palabra especial para las variables que resulta muy 
útil: se trata de [+!] (sumar-guardar), que permite sumar el núme- 
ro presente en el stack al valor de una variable. Por ejemplo, si la 
variable JUAN 


VARIABLE JUAN 
contiene el valor 30 
30 JUAN |! 
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la ejecución de 


20 JUAN +! 
y 

JUAN O (o bien JUAN ?) 
dará 


50 OK 


La palabra [+!] es especialmente útil e la hora de utilizar un 
contador, un totalizador. Como es lógico, también es posible ha- 
cerse uno mismo las restantes operaciones (en caso de que no 
las haya) de la siguiente manera: 


-! SWAP NEGATE SWAP +! ; 
*! DUP (0 ROT * SWAP I; 
/! DUP (YD ROT / SWAP ! 


e. 


que sirven para restar, multiplicar o dividir por un número la va- 
fiable. 

Se pueden también utilizar las variables para operar entre sí. 
De esta forma: 


VARIABLE FELIPE GONZALO JUAN + SWAP ! 


creará la variable FELIPE, que contiene la suma de los valores que 
se hallan en las dos variables anteriormente definidas. 


Constantes 


Las variables que hemos descrito están destinadas a conte- 
ner valores que pueden, como hemos visto, cambiar. Las constan- 
tes, en cambio, son estructuras del lenguaje cuyos valores, gene- 
ralmente, no cambiarán. Un programa de facturación contendrá, 
por ejemplo, la constante del IVA (de valor igual a 12) destinada, 
al menos en principio, a no cambiar durante un largo período de 
tiempo. 

La manera de definir una constante es muy parecida a la de 
una variable; bastará con escribir : 


12 CONSTANT IVA 
para que la constante IVA tome el valor deseado. 
12 


A primera vista podría parecer que todo esto es una inútil 
complicación o una copia de VARIABLE, pero no es así. Al decir 
IVA, el sistema operativo se referirá a un valor y no a una direc- 
ción, como en el caso de las variables. Las operaciones de bús- 
queda (O), por tanto, no tendrán sentido alguno, ya que no está 
implicada la función de EXECUTE y no hay indicaciones hacia di- 
recciones de memoria. 

La verdadera utilidad de las constantes reside en que con- 
servan datos a los que acceder inmediatamente y que están, di- 
gámoslo así, cristalizados o congelados an el sistema operativo. El 
acceso directo a un valor que se produce con las constantes es 
mucho más veloz y eficaz que al buscar una dirección desde don- 
de se señalará luego un valor (aunque al usuario tal vez no le pa- 
rezca importante la diferencia que existe); todo ello comportará 
una mayor eficiencia y, por tanto, más velocidad operativa, No hay 
que olvidar que para un programador en FORTH lo importante no 
es que el ordenador haga cualquier cosa o a cualquier precio, 
sino que la realice de la mejor manera posible; está claro que será 
mucho más conveniente utilizar constantes, aunque pueda pare- 
cer a veces una complicación inútil. 

Queremos resaltar un detalle: si escribimos 


30 CONSTANT LUIS 
equivale, o al menos produce, el mismo efecto que 
LUIS. 30 ; 


pero esta definición ocupa más memoria y tiempo (alrededor del 
40 por 100) en la fase de ejecución. 

Lo corriente es que una constante, una vez inicializada, con- 
serve su valor indefinidamente, pero podría ocurrir que en un mo- 
mento dado hubiera que cambiar el valor ya existente. Para ello 
habrá que ejecutar la siguiente operación: 


nl ' nombre de la constante |! 


en la práctica: 
63 * LUIS ! 


sustituirá el valor 30 por el de 63. 

Seguro que ahora más de un lector se estará preguntando: “si 
las constantes son mucho más eficientes, ¿por qué no se utilizan- 
siempre en lugar de las variables? Cuando sea necesario bastará 
con cambiar el valor de la constante con la secuencia que ha sido 
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descrita”. Pero este razonamiento no es válido, ya que dicha se- 
cuencia ['nombre!] es mucho más lenta que cualquier operación 
con variables. 

Un último consejo: debido a la gran exigencia de autodocu- 
mentación de los programas en FORTH y para evitar confusiones 
es conveniente utilizar nombres para las variables y, aún más, para 
las constantes que sean muy significativos. Así, por ejemplo, la 
constante de Planck es mejor definirla como PLANCK en lugar de 
PK. Además, cada sistema acepta identificadores de distinta lon- 
gitud, así que será mejor hacer pruebas (o leerse atentamente el 
manual) para evitar que PARALELEPIPEDO y PARALELOGRAMO 
puedan significar lo mismo. 

Es posible definir variables y constantes con números de do- 
ble precisión. Las palabras que habrá que utilizar son 24 ARIABLE 
y ¿CONSTANT además de [2!] y [200]. Las reglas serán las mis- 
mas cambiando sólo la modalidad de instrucción del número do- 
ble; como ya dijimos, para indicar que se trata de un número de 
doble precisión habrá que poner un punto en el número: así 
10.0000, 10000:0 y 1.00000 son, cualquiera de ellos, válidos con un 
valor de 100000. 


Las tablas 


Son un conjunto de datos homogéneos dispuestos en orden, 
De tal forma será una tabla (array, en inglés) la lista de la compra 
de un ama de casa, el extracto de los movimientos de una cuenta 
bancaria, la tabla de pesos atómicos de los elementos e incluso 
la lista de los santos en las páginas del calendario. La utilidad que 
poseen las tablas es que en lugar de referirse al elemento es po- 
sible “jugar” con el puesto que éste ocupa dentro de ella. 

En la práctica es lo mismo que ocurre al marcar un número 
de teléfono. Las tablas pueden estar organizadas como vectores 
(unidimensionales, es decir números organizados sólo en líneas) 
y como matrices, donde cada elemento se localizará por el núme- 
ro de línea y columna que ocupa. En tal caso se llaman tablas bi- 
dimensionales, de dimensiones axb, siendo éste el caso de los 
cuadros de un crucigrama o de la batalla naval. Hay también ma- 
trices tridimensionales axbxc y pluridimensionales que son, con- 
ceptualmente, iguales en cuanto al sistema de funcionamiento y 
localización se refiere. 

Vamos a dar por un momento un paso hacia atrás: cuando de- 
finimos una variable con la secuencia 


VARIABLE ALBERTO 
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lo ALBERTO 


ESPACIO PARA 


el sistema operativo reserva un espacio en memoria tal y como 
se muestra en la figura 10a. La palabra ALLOT justo después de 
la propia definición de la variable en la forma 


VARIABLE NOMBRE n ALLOT 


permite reservar otros 'n” bytes de espacio al lado de los ante- 
nores (Fig. 10b); es entonces posible afirmar que en las variables 
dimensionadas de esta manera se podrán conservar dos números 
sencillos o un número doble, al tener a disposición 4 bytes. Por 
tanto 


VARIABLE JAVIER 8 ALLOT 


permitirá reservar espacio para cinco números sencillos; más ge- 
néricamente, ALLOT dimensiona la variable de forma que pueda 
contener (n+2)/2 números enteros y (n+2) MOD 2 bytes restan- 
les Es lógico que si estos últimos sobran serán de poca utilidad, 
asi que es conveniente que 'n” no sea nunca impar (al menos por 
el momento) y que, al trabajar en doble precisión, n+2 sea múl- 
tiplo de 4. 

Ahora las cosas empiezan a complicarse. Imaginemos que te- 
nemos un vector destinado a contener "n” gastos mensuales; em- 
pezamos con 


VARIABLE GASTOS 22 ALLOT 


| ALBERTO 
CODIGO, ... 


CODIGO DE 
RECONOCIMIENTO 
DE UNA VARIABLE 


ESPACIO PARA 
DOS VALORES 
DE SIMPLE 
PRECISION O 
PARA UN VALOR 
DE DOBLE 
PRECISION 


UN VALOR DE 
SIMPLE PRECISION 


a) b) 


Figura 10.—Asignación de memoria: para variable sencilla (a); me- 
diante el uso de [ALLOT] (D). 


18 


Tendremos así una tabla monodimensional de doce puestos 
de dos bytes cada uno reservados para conservar los valores de 
los gastos mensuales. Ahora bien, ¿cómo se colocan los valores 
del mes de abril o de diciembre en la casilla correspondiente? 
Para ello tenemos las constantes. Vamos a definirlas 


O CONSTANT ENERO 
2 CONSTANT FEBRERO 
4 CONSTANT MARZO 


.. y así hasta 


20 CONSTANT NOVIEMBRE 
22 CONSTANT DICIEMBRE 


Recordamos que al escribir el nombre de la variable estamos 
reclamando la dirección (y no el valor); así, si queremos meter 
300 en el mes de marzo escribiremos 


300 GASTOS MARZO + |! 


y el valor 300 estará incluido en el lugar correcto. 

Naturalmente, también podrán utilizarse las otras palabras es- 
pecíficas para las variables; así, si quisiéramos añadir el valor 32 
al 300 que ya está almacenado, bastará cor. utilizar [+!] en lugar 
de [!] (por otra parte, ya se habrán dado cuenta de que la palabra 
[+!] corresponde a la secuencia “n nombrevariable (+nombre- 
variable !”). 

Inicializar una tabla puede significar también asignar a las dis- 
tintas posiciones distintos valores. Supongamos que un concesio- 
nario quiere construir una tabla que conterga todos los precios 
de las piezas de recambio. La formará entonces de la siguiente 
manera: 


VARIABLE RECAMBIOS 298 ALLOT 


Esta podrá contener los precios de 150 piezas diferentes. Lue- 
go construirá las constantes de correspondencia: nombre de la 
pieza menos incremento de dirección. Y viene ahora la labor, tan 
pesada, de meter uno por uno los precios con la técnica 


1200 RECAMBIOS  ! (precio del volante) 


700 RECAMBIOS 2+! (precio del piloto) 
250 RECAMBIOS  4+! (precio de la bujía) 
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Podrán imaginarse lo aburrido que resulta. Por suerte existe 
una palabra [,] que puede considerarse una combinación de 
ALLOT y [!]. Toda la operación será entonces: 


VARIABLE RECAMBIOS 
1200 RECAMBIOS 
700, 250... (y todos los demás) 


¡Nótese la diferencia! No se requiere indicar inicialmente el 
valor de ALLOT, ya que la palabra [,] dimensiona dinámicamente 
la variable RECAMBIOS, es decir, la incrementa cada vez que apa- 
rece una magnitud de dos bytes y se encarga automáticamente 
de almacenar el valor. 

Si fuera necesario crear en un programa varias tablas pode- 
mos evitamos tener que efectuar la definición y asignación de 
cada una. Con todo lo que hemos visto hasta ahora y con dos nue- 
vas palabras [CREATE] y [DOES>] se puede automatizar todo. 

La primera, CREATE, incluye un nombre en el diccionario, 
pero sin reservar espacio para él Así la secuencia 


CREATE RECAMBIOS 


pondrá el nombre RECAMBIOS en el diccionario, aunque no le re- 
serve ningún espacio (funciona sustancialmente como VARIABLE, 
pero sin los dos bytes para almacenar datos). 

Si combinamos CREATE con DOES> podremos crear una es- 
Iructura elástica capaz de resolver, de una manera muy práctica, 
varios problemas. Tendrá la siguiente forma: 


nombre CREATE .  DOES> 


t 


donde la secuencia entre CREATE y DOES> especifica qué ocu- 
rre cuando la definición está compilada y las palabras correspon- 
didas entre DOES> y [;] especifican qué hacer cuando un objeto 
de la clase construida por CREATE es reclamado o ejecutado. 

Vamos a poner un ejemplo: supongamos que queremos cons- 
truir una palabra, ARRAY, que crea una tabla en el diccionario de, 
por ejemplo, 12 puestos. Seguiremos paso a paso su funcionamien- 
to. Escribimos siguiendo el ejemplo anterior 


12 ARRAY RECAMBIOS 


CREATE incluye el nombre RECAMBIOS en el diccionario, el 
valor 12 se duplica y ALLOT reserva 24 bytes (12 puestos) en 
memoria. Recuérdese que todo lo.que se halla contenido entre 
CREATE y DOES> especifica qué ocurre cuando se compila la 
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definición, así que en el momento de la compilación se reser- 
van 24 bytes para RECAMBIOS. 

La segunda parte permite obtener la dirección de un elemen- 
to multiplicando por dos su número de orden y añadiendo el va- 
lor a la dirección base. Así 


2300 6 RECAMBIOS ! 
efectuará las operaciones siguientes: 


— RECAMBIOS deja en TOS la dirección de base; 

— según la definición de array, 6 pasa al TOS y la dirección 
al segundo puesto (SWAP); 

— el número de orden 6 se multiplica por 2, para obtener la 
posición relativa en memoria; 

— se evalúa la verdadera posición del elemento, sumando di- 
rección de base relativa; 

— 2300 se almacena en la dirección. 


De la misma manera tendremos 
6 RECAMBIOS ? 2300 0K (valor presente en el octavo elemento) 
500 6 RECAMBIOS +! OK  (500+2300 en el octavo elemento) 


6 RECAMBIOS ? 2800 0K (valor puesto al día en el octavo ele- 
mento) 


18 


DIALOGANDO CON EL FORTH 


asta ahora hemos visto cómo usuario y orde- 
nador desempeñaban el papel, digámoslo así, 
de escritor y actor: el primero preparaba el 
guión (el programa) e informaba al actor (el or- 
denador) acerca de lo que tenía que hacer, el 
segundo leía su papel (el programa) y lo in- 
terpretaba sin pedir más explicaciones. 

Pero en la vida real se da con frecuencia 
h el tener que ir metiendo en el programa datos 
que no han podido ser determinados de antemano. Este es el caso, 
por ejemplo, de la mayor parte de las aplicaciones comerciales, 
donde hay una cantidad tremenda de datos muy variables en el 
tiempo. Piense en un programa de facturación y se dará cuenta 
que resulta mucho más práctico que el programa en curso solici- 
te por sí mistr.o algunos datos antes que meterlos todos y poner 
en marcha el programa cada vez. 

Lo mismo ocurre con programas matemáticos o de ingenie- 
ría, en los que el volumen de datos es tal que sería poco práctico 
introducirlos en el stack desde un principio (¿se imagina las difi- 
cultades a la hora de manejarlos?) arriesgándose incluso a saturar 
el stack que, desde luego, no es un pozo sin fondo... Y, sin ir más 
lejos, hasta en un juego es necesario que interactúe durante la eje- 
cúción con el jugador para que este último pueda decidir el mo- 
vimiento oportuno en su enésima batalla contra los marcianitos. 

Por otro lado, con frecuencia un programa debe proporcionar 
resultados parciales que han de ser enviados a una impresora o 
a la pantalla. En realidad ya conocemos algunas de estas técnicas, 
como las palabras [.], [CR], [."”], pero no son desde luego suficien- 
tes para resolver todos los problemas del diálogo hombre-má- * 
quina. : 
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Operaciones de 1/0 


Las operaciones que necesitamos se llaman de 1/O (input/out- 
put) y sirven para recibir órdenes del teclado o transmitir resul- 
tados o peticiones a una impresora o a la pantalla. Estas informa- 
ciones se transmiten generalmente por medio de un código es- 
pecífico de 8 bits llamado ASCII (American Standard Code for In- 
formation Interchange) que es en la práctica algo así como el al- 
fabeto estándar de los ordenadores. 

La principal operación de entrada. (input) es la que espera, 
por parte del teclado o de un instrumento de medida, recibir una 
señal formada por un solo código. Esto quiere decir, de forma más 
sencilla, que el ordenador aguarda a que el operador apriete una 
tecla o a que el aparato al que está conectado le envíe un dato 
en forma de código ASCII 

La palabra [KEY] se encarga de ello: ésta pone al ordenador 
en una situación de espera hasta que sea pulsada una tecla. El va- 
lor del código respectivo se sitúa entonces en el TOS. Por tanto 
si escribe 


KEY 


y aprieta a continuación la tecla "P” obtendrá OK sin otro mensaje. 
Pero si pulsa entonces la palabra [.] el ordenador responderá 


80 OK 
que representa, precisamente, el valor ASCII del carácter "P”, 

Lo cierto es que 80, de por sí, no nos dice mucho a menos 
que tengamos una memoria fabulosa. Existe entonces otra pala- 
bra [EMIT], que convierte el valor numérico en el carácter ASCII 
correspondiente, es decir, en la práctica ejecuta la operación in- 
versa de [KEY] y equivale al CHR$(n) del BASIC. Así 

AA KEY EMIT ; 
dará, cuando apretemos la tecla “P” 
P OK 
Podemos mejorar aún más la definición con 
AAA KEY DUP .'Ha sido pulsada la tecla” EMIT CR; 
que dará como salida (output)) 


80 


Ha sido pulsada la tecla “P” 


Fl valor 80 se conservará en el TOS para usos posteriores, ya 
que es bastante improbable que nadie se siente frente a un orde- 
nador para apretar teclas y esperar a que el ordenador le diga cuá- 
les ha pulsado.. 

Hay al menos otras tres palabras especialmente útiles en las 
operaciones de 1/0. La primera, [BELL], envía al periférico el ca- 
rácter ASCII 7 (bell=campana), que activa el timbre de la impre- 
sora o del monitor. [BL] en cambio, deja en el TOS el valor 32 
(Blank que corresponde a la pulsación de la barra espaciadora). 
Por último [SPACE], que podemos definir como 


: BL EMIT ; 


transmite al periférico de salida un espacio (ASCII 32, Blank) sin 
incluir nada en el TOS. Como es natural, si utilizamos estas pala- 
bras para formar otras a nuestra medida, es decir para nuestro uso 
y beneficio, podremos crearnos una salida más adecuada. 


Entrada/salida de cadenas 


Lo corriente es esperar del teclado una secuencia de carac- 
tres más que letras individuales. Con más precisión, se espera 
como entrada una cadena (string, en inglés) que representa nú- 
meros, partes de texto (frases, comunicados, respuestas, etc.) o 
cualquier combinación de ambas cosas. En honor a la verdad, el 
hecho de que sea una cadena tiene significado sólo para el usua- 
rio, ya que el sistema operativo la trata y considera como una se- 
rie de bytes consecutivos en los que cada uno representa el va- 
lor correspondiente a un carácter en la secuencia planteada. 

La cadena puede estar formada de muchas maneras. El FORTH 
la conserva como una serie de caracteres (o mejor, como una se- 
rie de códigos que representan caracteres) precedida de un byte 
que indica su longitud. Como el valor máximo que puede repre- 
sentar un byte es de 255, ésta será la longitud máxima, en carac- 
teres de una frase que pueda ser manejada por el sistema opera- 
tivo sin necesidad de instrucciones adicionales (como, por ejem- 
plo, de dimensionamiento). 

La cadena, delimitada al comienzo por el contador de carac- 
teres, posee al final el CARRIAGE RETURN (CR; CTRL-M, ASCII 
13). El orden según el cual está situada en memoria es creciente. 
Muchos Forths no colocan al final de la línea el carácter ASCII 13, 
De esta manera la cadena se individuará al final por el primer ca- 
rácter NUL (ASCII 0). 
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12 | NUMERO DE CARACTERES 
es A 
ea n 
. 
2 - 
E 
dd A 
O 
e 
E : 
N 
uu 
ES a | SPACE 
[8] 
8] 
EY lo ' 
a 
es | 0 
O : 
e o 
79 10) 


e 
w 


1] Figura 11.—Situación de los caracteres de una cadena en la memoria. 


Decíamos que es posible dar por entrada una frase en lugar 
de un solo carácter. Hay para ello dos palabras: [EXPECT] y 
[TYPE]. Ambas extraen del stack dos parámetros: la dirección de 
partida y el número de caracteres según la fórmula general 


CUE MM AO 


donde xxxxx representa una de las dos palabras. ] 

Lia primera, [EXPECT] acepta caracteres del teclado o de otro 
medio de entrada, hasta haber recibido las “n” letras o hasta que 
Maya sido pulsada la tecla RETURN. Cada vez que se aprieta una 
lecla 4u valor se pone en memoria en una posición más alta que 
la clol carácter anterior. Cuando la cadena está agotada el sistema 


se encarga de añadir automáticamente uno o dos caracteres nu- 
los (ASCII 0) al final. 

Como [EXPECT] no tiene en cuenta la longitud de la cadena, 
sino sólo la máxima, no hay forma de conocer su longitud exacta. 
A menos que se quieran contar cada vez las letras con los dedos, 
será mejor construirse una palabra que se encargue de calcular 
dicha longitud como diferencia entre la dirección más alta no ocu- 
pada por el ASCIL O y la de partida. Esto puede hacerse con un 
simple bucle que compruebe desde la dirección inicial uno por 
uno todos los caracteres hasta encontrar uno igual a O (o hasta ha- 
llar CR, si el sistema incluye esta palabra al final de la línea en la 
fase de almacenamiento en memoria). : 

La palabra [TYPE] hace lo contrario que [EXPECT], esto es: 


dir: n TYPE 


efectúa la extracción, a partir de la dirección dir, de una cadena 
de n-1 caracteres. 

Existe para apoyar a ésta la palabra [COUNT], que es espe- 
cialmente útil, pues con ella no hace falta tener en cuenta la lon- 
gitud de las cadenas almacenadas. En la práctica [COUNT] no es 
otra cosa sino una variable predefinida destinada a contener la di- 
rección final de la cadena. El hecho de tener esto en cuenta re- 
sulta muy útil, por ejemplo, a la hora de extraer una subcadena 
(parte de la cadena principal). Así las formas genéricas 


dir COUNT n - TYPE 
dir n - COUNT TYPE 


permite obtener, respectivamente, la primera y segunda parte de 
una cadena. ' 

Más genéricamente es posible crear una palabra de extrac- 
ción de subcadena según la fórmula 


dir nl n2 SUBCADENA - - - 
en la cual podemos definir la palabra SUBCADENA como 
SUBCADENA ROT ROT + TYPE ; 


que, por su sencillez, no requiere comentario alguno. 

Hay una palabra específica para las cadenas: [PAD]. En efec- 
to, existe un área de estacionamiento en memoria que tiene una 
amplitud mínima de 64 bytes (como se especifica en el estándar 
79) y que puede utilizarse para conservar cadenas reservadas 
para una manipulación intermedia. Este área está ubicada dinámi- 
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camente, o sea, que puede ser desplazada en memoria cuando se 
necesite, a una distancia fija del área del diccionario. Esto deter- 
mina precisamente su variabilidad de dirección en base a las di- 
mensiones del diccionario y a las palabras añadidas posteriormen- 
te, Pero éste no es un problema, ya que el área del PAD (es decir, 
almohadilla, tampón) suele utilizarse dentro del ámbito de una mis- 
ma palabra, así que no se producen variaciones relativas de la dis- 
tancia diccionario-dirección del PAD. 

La palabra [PAD] reclama la dirección de partida del área in- 
termedia y la pone en el TOS. De esta manera hay 62 espacios dis- 
ponibles para letras (64 menos un contador y menos un valor 
NULL que hay que situar al final). En FIC-FORTH, en cambio, el 
área del PAD es de 68 puestos, es decir 66 espacios para letras. 

Hay otras dos palabras dedicadas al formateo. La primera, 
[SPACES], toma del TOS un número e imprime la misma cantidad 
de espacios. Resulta útil sobre todo para encolumnar y, unida a la 
palabra precedente y a la longitud de la cadena que hay que mo- 
dificar, permite la preparación de una palabra análoga al PRINT 
USING del BASIC. 

La segunda palabra es [-TRAILING] que elimina los espacios 
contenidos en la cadena superiores a 1. Se trata de una operación 
que actúa sólo sobre la salida: la cadena en memoria y el conta- 
dor permanecen inalterados. 

Del mismo mcdo que para las cadenas, hay también palabras 
destinadas a formatear números. [.R], [UR], [DR] son algunas de 
ellas y sirven para imprimir números sencillos sin signo o dobles 
alineados a la derecha. No vamos a describir estas palabras ya 
que varían mucho según las distintas versiones del lenguaje; es 
mejor que el usuario las estudie en el manual de instrucciones 
que le ha sido entregado. 


Entrada/salida numérica 


Nos hemos referido hasta el momento a la introducción de ca- 
denas, pero, sobre todo en aplicaciones científicas, lo que posee 
una importancia fundamental es la entrada numérica. 

Antes de seguir adelante, una precisión: cuando efectuamos 
una operación numérica utilizando un ordenador programable en 
FORTH, el sistema operativo trata de interpretar todo lo que reci- 
be del teclado en el siguiente orden: 


— Comprueba que no se trate de una palabra; 

— trata de interpretar la secuencia como valor numérico, 
transformándolo y lo pone en el TOS; 

— trata de valorar una cadena; 
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— en caso de que todo esto no sea posible envía un mensa- 
je de error. 


Todo esto es cierto siempre que se utilice el ordenador como 
calculadora o cuando, antes de la llamada de la palabra, quiera me- 
ter datos en el stack. Pero en forma interactiva las entradas por 
teclado se consideran como una secuencia de caracteres alfanu- 
méricos (en la práctica, como letras de una frase) como ya vimos. 

Para que pueda interpretarse una secuencia como número 
hay dos palabras específicas: [NUMBER] y [CONVERT]. La prime- 
ra toma del stack un número doble y una dirección y devuelve 
un número doble y una dirección, Podemos representarla de la si- 
guiente manera: 


ol dl === m2 dira 


donde nl y n2 son números de doble precisión. 

En realidad, n1 es un número sin significado que sirve sólo 
para reservar en el stack un espacio igual a 4 bytes. Dirl es, en 
cambio, la dirección del byte que precede al primer carácter de 
la cadena. [CONVERT] no necesita este byte, puesto que no pre- 
cisa conocer la longitud de la cadena. 

Partiendo de la dirección dir+1 [SONVERT] empieza a tradu- 
cir cada carácter ASCII a su valor numérico y acumula ese valor 
en nl, Como puede verse, el contenido asignado inicialmente a 
nl no tiene importancia alguna y puede ser, incluso, igual a cero. 
El proceso sigue hasta que se detecte un carácter que no sea 
transformable en número. Entonces en el segundo puesto del 
stack se hallará n2 y se almacenará en el TOS la dirección del pri- 
mer carácter no traducible (dir2). . 

Para hacer todo esto aún más sencillo podemos utilizar el PAD 
para almacenar la cadena de entrada Pongamos un ejemplo. Su- 
pongamos que queremos simular una entrada numérica, es decir, 
que en un momento dado queremos suspender la ejecución de 
un programa para esperar un dato numérico que queremos reci- 
bir desde el teclado, Construimos la palabra INPUT: 


INPUT (interrumpe el programa y espera la in- 
troducción de un dato desde el teclado 
o desde un periférico de control) 


AE (imprime un carácter de petición) 
PAD (solicita el área del PAD) 
11 EXPECT (longitud máxima del número: 10 cifras) 
0 (valor de nl para el CONVERT) 
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OPAD 1 - (sitúa en el TOS la dirección de partida 
de la secuencia cadena-número) 


CONVERT (efectúa la conversión) 

DROP (borra la dirección final) 

SWAP (pone en el TOS la dirección de la varia- 
ble) 

! (conserva en la variable el valor desci- 
frado) 


: (fin definición) 


Esta definición funciona como el INPUT en BASIC, La única di- 
ferencia estriba en que aquí la variable debe estar ya menciona- 
da. Por ejemplo, tras escribir 


VARIABLE A 
la secuencia 
A INPUT 


funcionará de la misma manera que la línea BASIC 


Con la única diferencia formal de que la sintaxis operan- 
do-operador estará impuesta, como siempre, por la notación pola- 
ca inversa. Pero tiene una gran ventaja: mientras que en BASIC 
la secuencia se utiliza sólo durante la ejecución, en FORTH esto 
es posible también interactivamente desde el teclado, lo que no 
es poco.. 

Naturalmente la definición de [INPUT] compilada de esta ma- 
nera puede ser complementada con estructuras de control que 
verifiquen y soliciten confirmación del valor que ha sido escrito. 
Esto es posible introduciendo en la palabra una secuencia de con- 
trol, por ejemplo después del [EXPECT], con IF condicionados 
efectuando el tipo de control que hay que ejercer. 

La palabra [NUMBER] funciona de manera parecida a [EX- 
PECT], Pero acepta, en la cadena que hay que convertir a núme- 
ro, el signo “-”, de forma que también permite la entrada de nú- 
meros negativos. Naturalmente, la presencia de dos palabras di- 
ferentes indica que existen diferencias de velocidad entre ambas, 
pues de otro modo no tendría sentido la presencia de [EXPECT]. 
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LAS BASES DE NUMERACIÓN EN FORTH 


partir de ahora daremos por supuesto que el lec- 
tor sabe utilizar las numeraciones binaria, octal 
y hexadecimal, en particular esta última, en la 
cual se representan las cifras superiores al 9 con 
letras de la A a la F. Quien no cumpla esta con- 
dición puede repasar los primeros libros de la 
B.B1, donde se estudiaron más extensamente. 
Al contrario que la mayoría de los lengua- 
jes, que admiten como mucho 3 Ó 4 sistemas de 
numeración (binario, decimal, hexacecimal y, a veces, octal), el 
FORTH admite nada menos que 69 distintos, en particular del 2 al | 
70. El valor del sistema de numeración en curso se halla en la va- 
riable [BASE]. 

Al encenderlo, el sistema inicializa la variable al valor 10 
(BASE O. dará 10 OK). Si queremos pasar a otro sistema bastará 
con efectuar una asignación de variable en la forma 


ñ BASE. 1“ 


que ya conocemos. 
——— Detal forma, si tuviéramos que pasar al sistema hexadecimal 
tendríamos 


16 BASE ! 


El hecho de que el ordenador no haga ninguna diferencia en- 
tre los sistemas se pone de relieve por la secuencia 


¿AAA (muestra los resultados de una suma en 
dos sistemas de numeración distintos; he- 
xadecimal y decimal) 
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16 BASE 

+ DUP 

el total de los dos primeros números del stack es” 
CR 

en hexadecimal: ” CR 

A BASE ! 

“en decimal: ” CR 


” 


que da por respuesta la suma de los números que se hallan en el 
TOS en dos sistemas distintos de numeración. 

Pero una vez más aparece algo que puede resultar extraño: 
la secuencia “A BASE '”. Trataremos de llegar a su lógica con 
cierto orden; supongamos que estamos en hexadecimal y quere- 
mos pasar a decimal; tecleamos entonces: 


10 BASE ! 


pero estaremos cometiendo un grave error, pues seguiríamos es- 
tando en hexadecimal. ¿Por qué? Porque 10 en base 16 vale, pre- 
cisamente, 16. Como nos hallamos todavía en base 16 (represen- 
tado por la cifra 10) para volver a base 10 habrá que indicar ese 
valor en la base que está aún en vigor (en base 16, 10 vale pre- 
cisamente A). ¿Queda claro? 

De todas formas hay dos palabras específicas que sitúan el sis- 
tema en las bases numéricas más corrientes, no teniendo que com- 
plicarse la vida con estos cálculos. Estas palabras son (DECIMAL), 
que pone inmediatamente la variable [BASE] al valor decimal 10, 
y [HEX], que lo hace con el valor 16 (base hexadecimal). La gran 
ventaja de estas palabras es que con ellas no hay que tener en 
cuenta las bases iniciales de partida. 

Tal vez se esté preguntando ahora en qué situaciones es ne- 
cesario hacer trabajar el ordenador en base, por ejemplo, 19 6 31. 
Esto puede darse en problemas de control de instrumentación en 
los que es a veces conveniente utilizar como base el número de 
instrumentos que hay que controlar: de ahí la necesidad de esa 
cantidad de bases numéricas, inexistentes er. otros lenguajes. De 
todas formas no resulta muy racional trabajar en cuestiones de sa- 
lida en bases extrañas. Puede ser por ello necesario poner en esos 
momentos el ordenador en base 10 sin olvidar la base de trabaj 
original. La secuencia que habrá que utilizar será: ? 


BASE O (reclama el valor en curso de BASE). 
DECIMAL (fuerza el sistema de numeración deci- 
mal). 
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(Se efectúan las operaciones). 
(Para las que se necesita el sistema de- 
cimal). 
BASE |! (sitúa de nuevo el valor de base numéri- 
ca obtenido por la secuencia BASEO). 
Puede ser aún más conveniente, para no perder la cuenta del 
lugar ocupado por la base numérica en el stack durante cálculos 
extensos, situar su valor en el RS, si se trabaja en el ámbito de una 
sola definición, o también definir dos nuevas palabras que utili- 
cen dos variables definidas por el usuario. Por ejemplo, la variable 


VARIABLE BASE< 
y la palabra 
SAL BASE (O BASE< ! DECIMAL ; 


sirven para conservar el sistema numérico de base en curso y pa- 
sar a operar en decimal. El caso contrario 


ENTRA BASE< (O BASE ! ; 


permite regresar al sistema de numeración originario. 
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CONCLUSION 


emos llegado así al final de esta rápida visión 
del FORTH. Como habrán notado, en esta épo- 
ca de lenguajes estructurados con complejida- 
des sintácticas y operacionales, el FORTH es el 
único que “impone” su uso desde un principio. 
Las palabras que hemos definido y compilado 
hasta ahora no son otra cosa que los procedi- 
mientos de otros lenguajes, que han sido aquí 
E “definidos de la manera más inmediata: con sólo 
nombrarlas e indicar a continuación lo que deben hacer. 

Se ha dicho que el FORTH es un lenguaje de difícil lectura y 
compleja depuración. Esto es cierto a menos que se tomen algu- 
nas precauciones que deberían estar en la base de cualquier fase 
de programación. Vamos a dar entonces unos últimos consejos: 

A) Incluya abundantes comentarios, no serán tenidos en 
cuenta en la fase de compilación, de manera que no ocuparán me- 
moria ni harán más complejo el sistema operativo. 

B) Defina palabras breves, mejor si son brevísimas y “cósa- 
las” luego entre sí; depure entonces pequeñas secuencias. Esto es 
más racional y sistemático; además, una vez que las partes indi- 
viduales son correctas resulta más fácil comprobar la validez del 
conjunto. , 

C) Fórmese una librería de base, con utilidades verificadas y 
de confianza. El FORTH, bajo este punto de vista, es menos rico 
que los demás en cuanto a “patrimonio” se refiere, pero esto ha 
sido pensado en parte para que el usuario pueda fabricarse pala- 
bras hechas a su medida y susceptibles de ser transformadas de 
una utilización a otra. ; 

D) Trate de no traducir sus pensamientos, sino de “pensar en 
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FORTH”; verá que no resulta tan difícil como podría parecer, le bas- 
tará un poco de práctica. 

E) Haga uso de las técnicas de recursividad. A pesar de que 
no hemos tratado de ellas en este libro, podrá encontrar biblio- 
grafía adecuada si decide empezar en serio con el estudio del 
FORTH. Para su información, la recursividad es la técnica en base 
a la cual un programa puede, en su ejecución, utilizarse a sí mis- 
mo para encontrar un resultado. Ya tratamos de ello en otro libro 
de esta colección dedicado a la programación estructurada. 

Por último: en informática sea siempre sencillo, práctico y 
esencial. El FORTH en este aspecto es ciertamente un modelo 
ejemplar... 
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FORTH 79 REQUIRED WORDS 


n este apéndice está incluido el FORTH-79 
REQUIRED WORDS SET obtenido del FORTH-79 
Installation Normal. Se trata del conjunto mí- 
nimo necesario para cualquier sistema FORTH 
y destinado a asegurar la transportabilidad, que 
es el sueño de los lenguajes informáticos. El he- 
cho de que hayamos puesto el estándar 79 y no 
el 83 se debe a que el primero está mucho más 
extendido y prácticamente disponible en cual- 
quier sistema o procesador. Queremos recordar también que exis- 
te otro estándar, el FIG, que difiere de éste sobre todo en la no- 
menclatura de algunas palabras. Aquellas personas que quieran 
profundizar en los temas tratados podrán encontrar referencias úti- 
les en la bibliografía que incluimos. ' 

Hemos utilizado la siguiente norma para representar las mo- 
dalidades ejecutivas de la palabra: en la secuencia 


ab O === 514 


a”, “b”, “c” representan el contenido del stack (en la que "c” es el 
TOS, es decir Top of Stack), - - - representa la ejecución de la pa- 
labra y “d” el contenido final del stack. 


Manipulación de stack 
DUP (n —— mn) Duplica el número en el TOS 
DROP (n--  ) Borra el número en el TOS 
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SWAP (nl n2 —n2 nl) 
OVER (nl n2—nl n2n1) 
ROT (n1 n2 n3 — n2 n3 


nl) 
PICK (nl —- n2) 


ROLL (n -— n) 
?DUP (n -— n(n)) 
>R (n --) 

R> (nm) 

RO (—n) 
DEPTH (-— n) 
Comparaciones 


< (nl n2 -—— flag) 
= (nl n2 -— flag) 
> (nl n2 — flag) 


0< (n -——- flag) 
0= (n -— flag) 
0> (n — flag) 


NOT (flagl — flag2) 


D< (dl d2 --- flag) 
U< (ul u2 — flag) 


Intercambia los números en la cima del 
stack 
Pone una copia del segundo número en 


.el TOS 


Pone el tercer número en el TOS 
Copia el enésimo número en el TOS 
Pone el enésimo número en el TOS 
DUP sólo si el TOSes<>0 
Transfiere el TOS al Return Stack 
Solicita un número del RS 

Copia el TRS en el Data Stack 
Cuenta los números del Stack 


Flag=1 (true) si nl es menor que n2 
Flag=1 si nl=n2 

Flag=1 si nl >n2 

Flag=1 si n es negativo 

Flag=1 si n=0 

Flag=1 si n es positivo 

Cambia el valor del flag. Equivalente a 


Como [<] pero con números dobles 
Como [<] pero con números sin signo 


Operaciones aritméticas y lógicas 


+ (nl n2 -— suma) 


D+ (dl d2 -—- dsuma) 


- (nl n2 —- resta) 
1+ (n -— n+1) 
1- (n -— n-1) 
2+ (n — n+2) 
2- (n — n-2) 


Suma algebraica 

Suma algebraica de números dobles 
Resta algebraica (n1-n2) 

Añade 1 al TOS 

Resta 1 al TOS 

Añade 2 al TOS 

Resta 2 al TOS 


Producto 

División (n1/n2). El cociente está trun- 
cado (no redondeado) 

Deja en TOS el resto de n1/h2. El resto 
tiene el signo de nl 


* (nl n2 --- producto) 
/ (nl n2 — cociente) 


MOD (nl n2 — resto) 


/MOD (nl n2 -- resto co- 
ciente) Deja el resto y el cociente en el TOS 
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*/ (nl n2 n3 — cociente) Multiplica y luego divide (n1*n2/n3); el 
resultado está truncado. Los valores in- 
termedios son de doble precisión 

*/MOD (nl n2 n3 ---res- 


to cociente) Igual que */ pero deja resto y resultado 
en el TOS 

U* (unl un2 -— uprodue- 

to) Como * paro con números sin signo 

U/MOD (ud un -- uresto 

ucociente) Divide un número doble por uno senci- 


llo, dejando un resto y cociente senci- 
llos, ambos sin signo 


MAX (n1 n2 -— max) Deja el mayor de los dos números 

MIN (n1 n2 --- min) Deja el menor de los dos números 

ABS (n — (nm) Deja el valor absoluto 

NEGATE (n — —n) Convierte el número en negativo (deja 


el complemento a 2) 
DNEGATZ (dn -—-dn) Deja el complemento a 2 de un número 


doble 
AND (n]1 n2 —- AND) AND lógico entre nl y n2 
OR (nl n2 -— OR) OR lógico entre nl y n2 


XOR (nl n2 — XOR) OR exclusivo entre nl y n2 


Operaciones en memoria 

(O (dir — n) Busca un número en la dirección 

! (n dir ---) Guarda un número en la dirección 

CO (dir —- byte) Busca el LSB (least significant byte; Byte 
de orden bajo) 

C! (n dir -——) Idem pero lo guarda 

? (dir ---) Muestra el número de la dirección 
(equivale a (O.) 

+! (n dir —--) Añade "n” al número presente en la di- 
rección 


MOVE (dirl dir2n-—) Copia “n” números a partir de la dirl en 
las posiciones a partir de la dir2, si n>0 
CMOVE (dirl dir2 n -—-) Idem pero con un byte 
FILL (dir! “n” byte —)  Asigna a "n” bytes en memoria el valor 
| del byte, partiendo de la dirl. 
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Estructuras de control 


DO .. LOOP 
do:(valor final+], y. 
de partida ---) 
l (— índice) 
J (+ índice) 
DO .. +FLOOP 


do:(límite, partida—-) 
LEAVE (—) 


F .. (true) .. THEN 
ifí(fag —) 


F .. (true) .. ELSE 
if(flag —) 


BEGIN .. UNTIL 
until (flag -—) 


BEGIN .. WHILE 


. REPEAT whi- 
le:(flag —) 
EXIT ( —) 


EXECUTE (dir -—) 


Operaciones de 1/0 
E 

U. (nu —) 

GR (>=) 

SPACE ( —) 
SPACE (n —) 


*(=) 
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Estructura principal de bucle 

Aloja el índice en curso del LOOP en el 
Data Stack 

Igual con el bucle interior 


Como DO-LOGP pero añade el valor del 
stack al índice 

Fuerza una salida prematura del bucle 
poniendo el límite igual al índice 


Si el TOS (flag)=true (verdad=1) se efec- 
túa 


Idem pero si el flag=0 efectúa la secuen- 
cia de ELSE 


Vuelve a BEGIN hasta que el flag se 
ponga verdad (=1) 


Efectúa el ciclo entre BEGIN y REPEAT 
hasta que el flag sea falso (=0); en tal 
caso el bucle, después del WHILE, salta 
a la instrucción después de REPEAT 
Termina la ejecución de una definición; 
no debe ser utilizado fuera de un DO- 
LOOP 

Fuerza la ejecución de una dirección de 
diccionario en la dirección de compila- 
ción en stack 


Muestra el número del TOS 

Idem con número sin signo 

Efectúa un salto a la línea siguiente (ta- 
rriage return) 

Deja un espacio (ASCII BLANK; 32) 
Deja "n” espacios, si n>0 

Imprime un mensaje (cerrado por ”) 


TYPE (dir n --) Imprime una cadena de'n"caracteres a 
partir de la dirección 

-TRAILINS (dirl — dir2) Elimina los espacios superfluos en la ca- 
dena presente en dirl 


KEY (-- valor) Lee del teclado un carácter y deja su 
valor ASCHU en el TOS 

EMIT (va.or ---) Imprime el carácter ASCII correspon- 
diente al valor en el TOS 

EXPECT [dir n -—) Recibe una entrada por teclado de 'n” 
caracteres (o que finaliza con CR (AS- 
CI 13)) 

QUERY ( — ) Recibe una entrada por teclado de una 


longitud de hasta 80 caracteres y lo si- 
túa en el buffer de entrada 

WORD (valor — dir) Lee la palabra siguiente del flujo de en- 
trada utilizando “valor” como delimita- 
dor 


Operaciones de 1/0 en memoria de masa 


LIST (n —) Lista la página "n” y asigna a "n” SCR 

LOAD (n ---) Carga (si no está ya presente) e inter- 
preta la página “n” 

BLOCK (n — dir) Deja la dirección de memoria del blo- 
que n 

BLK (-— dir) Variable del sistema que contiene el nú- 
mero en curso de bloque 

SCR (--- dir) Variable de sistema que contiene el nú- 
mero de la página en curso 

BUFFER (n --- dir) Obtiene el buffer sucesivo de memoria 
y lo asigna al bloque 'n” 

UPDATE ( —) Advierte que el último buffer ha sido 
modificado 


SAVE-BUFFER ( --- ) Salva todos los buffers modificados en 
la memoria de masa 
EMPTY-BUFFER (---) Pone todos los buffers disponibles 


Palabras de definición 
nombre ( — ) Inicia una definición 
¡(=-) Concluye una definición 
VARIABLE nombre (---) Crea una variable de 2 bytes llamándo- 
la nombre 
nombre: (-— dir) Devuelve la dirección de la variable 
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CONSTANT nombre (n 
---) 


CREATE .. DOES> 
(does:(--- dir)) 


Otras palabras 
CONTEXT (-- dir) 
CURRENT (--- dir) 
FORTH (--) 


DEFINITION (---) 
' (nombre) (— dir) 


FIND (--- dir) 


- 


Crea una constante con un nombre es- 
pecífico y almacena allí el valor de “n” 


Sirve para crear una nueva palabra de 
definición con ejecución inmediata 


A 


Variable del sistema que apunta al dic- 
cionario principal 

Variable del sistema que apunta al dic- 
cionario de nuevas definiciones 

Llama el diccionario principal y actuali- 
za CONTEXT. En algunos sistemas con 
varios lenguajes hace entrar en el am- 
biente FORTH. 

Asigna el diccionario CURRENT a CON- 
TEXT 

Busca la dirección del nombre de la pa- 
labra 

Deja la dirección de compilación de la 
palabra 


o _  —_ —___ 


CODIGO ASCII 


A A AA AA A A — A 


CA- CODIGO 

RAC- DEFINICION 

TER BINARIO DECIMAL HEXADECIMAL 

NUL 0000 0000 0 00 Nulo 

SsoH 0000 0001 1 01 Principio de encabezamien- 
to 

STX 0000 0010 2 02 Comienzo de texto 

ETX 0000 0011 3 03 Fin de texto 

EOT 0000 0100 4 04 Fin de transmisión 

ENQ 0000 0101 5 05 Pregunta 

ACK 0000 0110 6 06 Acuse de recibo 

BEL 0000 0111 7 07 Timbre (señal) 

BS 0000 1000 8 08 Retroceso 

HT 0000 1001 9 09 Tabulación horizontal 

LF 0000 1010 10 0A Cambio de renglón 

vT 0000 1011 11 OB Tabulación horizontal 

FF 0000 1100 12 oc Página siguiente 

CR 0000 1101 13 0D Retorno de carro 

so 0000 1110 14 OE Fuera de código 

SI 0000 1111 15 OF En código 

DLE 0001 0000 16 10 Encaje de transmisión 

DC1 0001 0001 17 11 Mando de dispositivo auxi- 
liar 1 

DC2 0001 0010 18 12 Mando de dispositivo auxi- 
liar 2 

DC3 0001 0011 19 13 Mando de dispositivo auxi- 
liar 3 


A AA A —_— —— == 
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CODIGO ASCII 


CA- ' CODIGO 
ASS AE VE AA DEFINICION 
TER BINARIO DECIMAL HEXADECIMAL 


DC4 0001 0100 20 14 WMando de dispositivo auxi- 
liar 4 
NAK 0001 0101 21 15 Acuse de recibo negativo 
SYN 0001 0110 22 16 Sincronización 
ETB” 0001 0111 23 17 Fin de bloque de transmi- 
=- sión 
CAN 0001 1000 24 18 Cancelación 
EM 0001 1001 25 19 Fin de medio físico 
SUB 0001 1010 26 14 Sustitución 
ESC 0001 1011 27 18 Escape 
FS 0001 1100 28 1C Separador de fichero 
GS 0001 1101 29 1D Separador de grupo 
RS 0001 1110 30 LES Separador de registro 
US 0001 1111 31 1F Separador de unidad 
0010 0000 32 20 Espacio en blanco 
| 0010 0001 33 21 Admiración 
y 0010 0010 34 22 Comillas 
$H 0010 0011 35 23 Símbolo número (cancela) 
$ 0010 0100 36 24 Símbolo dólar 
% 0010 0101 37. 25 Porcentaje 
a 0010 0110 38 26 “Ampersand” 
0010 0111 39 27 Acento 
( 0010 1000 40 28 Apertura de paréntesis 
) 0010 1001 41 29 Cierre de paréntesis 
ha 0010 1010 42 2A Asterisco 
+ 0010 1011 43 28 Signo más 
; 0010 1100 44 2C Coma 
- 0010 1101 45 2D Guión (signo menos) 
á 0010 1110 46 2E Punto 
/ 0010 1111 47 2F Símbolo división (“slash”) 
(0) 0011 .0000 48 30 
1 0011 0001 49 31 
2 0011 0010 50 32 
3 0011 0011 51 33 
4 0011 0100 52 34 
5 0011 0101 53 35 
6 0011 0110 54 36 
YA 0011 0111 55 37 
8 0011 1000 56 38 
9 0011 1001 57 39 , 
; 0011 1010 58 3A Dos puntos 
+ 0011 1011 59 3B Punto y coma 
< 0011 1100 60 30 Menor que 
= 0011 1101 61 3D Igual 
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CODIGO ASCII 


CA- CODIGO 

RAC- DEFINICION 

TER BINARIO DECIMAL HEXADECIMAL 

> 0011 1110 62 3E Mayor que 

? 0011 1111 63 3F Interrogante 

(0) 0100 0000 64 40 “Atpersand”, arroba 

A 0100 0001 65 41 

B 0100 0010 66 42 

Cc 0100 0011 67 43 

D 0100 0100 68 44 

E 0100 0101 69 45 

F 0100 0110 70 46 

G 0100 0111 71 47 

H 0100 1000 72 48 

l 0100 1001 73 49 

J 0100 1010 74 4A 

K 0100 1011 75 4B 

L 0100 1100 76 4C 

M 0100 1101 74) 4D 

N 0100 1110 78 4E 

0) 0100 1111 79 4F 

P 0101 0000 80 50 

0] 0101 0001 81 51 

R 0101 0010 82 52 

S 0101 0011 83 53 

Ti 0101 0100 84 54 

Ú 0101 0101 85 55 

Y 0101 0110 86 56 

wW 0101 0111 87 57 

Xx 0101 1000 88 58 

A 0101 1001 89 59 

Z 0101 1010 90 5A 

[ o101 1011 91 56 Apertura de corchete 

A 0101 1100 92 5C Barra invertida (“Back 

slash”) 

] 0101 1101 93 5D Cierre de corchete 

” 0101 1110 94 5E Acento Circunflejo 

E o101 1111 95 5F Guión de subrayado 
0110 0000 96 60 Acento inverso 

a 0110 0001 97 61 

b 0110 0010 98 62 

c 0110 0011 99 63 

d 0110 0100 100 64 

e 0110 0101 101 65 

f 0110 0110 102 66 

g 0110 0111 103 67 > 

h 0110 1000 104 : 68 
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CODIGO ASCII 


CA- CODIGO 

RAC- DEFINICION 
TER BINARIO DECIMAL HEXADECIMAL 

1 0110 1001 105 69 

j 0110 1010 106 SA 

k 0110 1011 107 6B 

l 0110 1100 108 6C 

m 0110 1101 109 0D: 04 

n 0110 1110 110 (3 ; 

(o) 0110 1111 111 6F 

19) 0111 0000 112 70 

q 0111 0001 113 71 

r 0111 0010 114 72 

Ss 0111 0011 115 73 

t 0111 0100 116 74 

u 0111 0101 117 75 

v 0111 0110 118 76 

w 0111 0111 119 77 

x 0111 1000 120 78 

y 0111 1001 121 79 

z 0111 1010 122 7A 

< 0111 1011 123 78 Apertura de corchete 
| 0111 1100 124 7C Barra vertical 

> 0111 1101 125 7D Cierre de corchete 
E 0111 1110 126 7E Tilde 

DELARNO Ni 127 7F Borrado, supresión 
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STARDING FORTH. 
L. Brodie. Forth Inc-Pretince Hall. 


INTRODUCTION TO FORTH 
K. Knecht. Howard € Sams Co. 


FORTH PROGRAMMING 
L, Scanlon. Howard $ Sams Co. 


AIM-65 FORTH USER'S MANUAL 
Rockwell. 


DISCOVER FORTH 
T. Hogan. MacGraw-Hill. 


Nota: Algunos de estos libros son importados también por Díaz 
de Santos. 
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BIBLIOTECA BASICA INFORMATICA 


INDICE GENERAL 


1 Dentro y fuera del ordenador 

Todo lo que debemos saber para poder comprender 
en qué consisten y cómo funcionan los ordenadores. 
Diccionario de términos informáticos 

Una perfecta guía en ese «maremagnum» de palabras y 
frases ininteligibles que se usan en Informática. 

Cómo elegir un ordenador... que se ajuste a nuestras 
necesidades 

Las características y detalles en los que deberemos 
centrar nuestra atención a la hora de elegir un 
ordenador. 

Cuidados del ordenador... cosas que debemos hacer o 
evitar 

Esos consejos que le evitarán problemas con su 
equipo, permitiéndole obtener el máximo provecho. 

¡Y llegó el BASIC! (1) 

Un claro y sencillo acercamiento a los principios de 
este popular lenguaje. 

Dimensión MSX 

El primer BASIC estándar que ha conseguido difundirse 
de verdad no es sólo un lenguaje; hay bastante más 

¡Y llegó el BASIC! (11) 

Instrucciones y comandos que quedaron por explicar 
en el la parte 1. 

Introducción al Pascal 

Una buena manera de adentrarse en la programación 
estructurada, ¡la nueva ola de la Informática! 
Programando como es debido... algoritmos y otros 
elementos necesarios. s 
Ideas para mejorar la funcionalidad y desarrollo de sus 
programas. 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 


24 


Sistemas operativos y software de base 

Qué son, para qué sirven. Unos desconocidos muy 
importantes, 

Sistema operativo CP/M 

Uno de los sistemas operativos para microprocesadores 
de 8 bits de mayor difusión en el mercado. 

MS-DOS: el estándar de IBM 

Sistema operativo para el microprocesador de 16 bits 
8088, adoptado por el IBM-PC. 

Paquetes de aplicaciones. Software “pret a porter” 
Características y peculiaridades de los más importantes 
paquetes de aplicaciones. 

VisiCalc: una buena hoja de cálculo 

Interioridades y manejo de una de las hojas de cálculo 
más usadas. 

Dibujar con el ordenador 

Profundizando en una de las facetas útiles y divertidas 
que nos ofrecen los ordenadores. 

Tratamiento de textos... para escribir con el ordenador 
Cómo convertir su ordenador en una máquina de 
escribir con memoria y todo tipo de posibilidades. 
Diseño de juegos 

Particularidades características de esta aplicación de 
los ordenadores. 

LOGO: la tortuga inteligente 

Un lenguaje conocido por su «cursor gráfico», la tortuga, 
y sus aplicaciones pedagógicas al alcance de su mano. 
Paquetes integrados: Lotus 1-2-3 y Simphony 

Estudio de dos de los paquetes integrados (Hoja de 
cálculo+base de datos+..) más conocidos. 

dBASE II y dBASE MI 

Cómo aprovechar las dos versiones más recientes de 
esta importante base de datos. 

Bancos de datos (1) 

Peculiaridades de una de las aplicaciones de los 
ordenadores más interesantes y que más dinero 
mueven. 

Bancos de datos (II) 

Profundizando en sus características. 

FORTH: anatomía de un lenguaje inteligente 

Principales características de un lenguaje moderno, 
flexible y de amplio uso, en la robótica. 

BASIC y tratamiento de imágenes 

Todo lo que en ¡Y llegó el BASIC! nc se pudo ver sobre 
las imágenes y gráficos en el BASIC, 


25 Los ordenadores uno a uno 
Un amplio y completo estudio comparativo. 
26 Cálculo numérico en BASIC 
Una aplicación especializada a su disposición. 
27 Multiplan 
Cómo hacer uso de este moderno paquete de 
aplicaciones. 
28 FORTRAN y COBOL 
Dos lenguajes muy especializados y distintos. 
29 Softest. Los programas a examen 
30 Cómo realizar nuestro propio banco de datos 
Conocimientos necesarios para poder fabricar un 
banco de datos a nuestro gusto y medida. 


NOTA: Ingelek, S. A. se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier 
volumen de la colección. 


ay quienes al acercarse por primera vez 
al FORTH se sienten extrañados de sus 
peculiaridades y un poco perdidos, lle- 
gando incluso a tacharlo de «raro» y 
abandonar cualquier intento de profundi- 
zar en él. Sin embargo, todos aquellos que 
sean capaces de superar esta primera ba- 
rrera de «lo distinto» se verán finalmente 
compensados. 

El FORTH es un lenguaje moderno, con el cual es natural 
la programación «de abajo hacia arriba», claro (una vez 
comprendida su filosofía), que permite obtener el máxi- 
mo provecho del ordenador y aprovechar, desde un len- 
guaje de alto nivel, la rapidez y potencia del lenguaje má- 
quina. En este libro le explicaremos el estilo de progra- 
mación característico del FORTH, su filosofía y lo que po- 
drá o no hacer con él. 
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